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IL BASIC 


PROGRAMMI PRATICI IN BASIC 
di lon POOIE 

Il libro è una raccolta di programmi di tipo 
finanziario, matematico, scientifico e di 
decisioni manageriali. Ogni programma, 
orientato alla risoluzione di un problema 
pratico, è presentato con una breve 
descrizione iniziale, un campione di 
esecuzione, il Hsting BASIC, nonché, per 
molti, una sezione in cui sono raccolte 
possibili variazioni per rendere il 
programma stesso più rispondente alle 
necessità personali I programmi sono stati 
scritti in un BASIC generale, il che li rende, 
per la maggior parte, direttamente 
utilizzabili, senza alcun cambiamento, su 
molti microcomputer, e sono stati provati 
usando varie versioni di BASIC 
SOMMARIO 

Reddito medio - Valore corrente di un buono del 
tesoro - Calcolo dell'interesse di obbligazioni - 
Interesse continuo composto - Regola 
dell'interesse 78 - Valore netto presente dt un 
investimento - Flusso di cassa non uniforme - 
Affitto/decisione di acquisto - Analisi degli 
investimenti sindacali - Scambio di 
deprezzamento * Ripartizione di quote - Quota 
interna di ritorno - Amministrazione finanziaria - 
Analisi di quote di stato finanziario - 
Partecipazione ai profitti dei contribuenti - 
Controllo dei libri’- Bilancio di casa - Metodo 
critico Path (CPM) - Pert - Algoritmo di trasporto - 
Teoria delle code - Analisi di Markov - Analisi non 
lineare di Breakeven - Analisi con la metrice dei 
vantaggi - Decisione di Bayes - Quantità 
economica di un ordine - Quantità economica di 
una produzione - Teoria della stima statistica, 
cod. 550D pag. 200 L. 12.500 


INTRODUZIONE AL BASIC 

Si tratta di un vero e proprio corso di BASIC. 
Le caratteristiche che lo hanno tatto 
scegliere, per questi mini elaboratori sono 
di essere facile da apprendere ed utilizzare, 
nonché di essere un linguaggio interattivo. 
Se ci sono errori, questi possono subito 
essere rilevati in maniera tale da poterli 
correggere. 

Facile da leggere e imparare, che con 
numerosi esempi "testa" subito il reale 
apprendimento raggiunto dal lettore. 

Un testo che si rivolge ai principianti. Infatti 
in maniera progressiva e pedagogica, 
senza alcuna necessità di formazione di 
base sulle tecniche di informatica, illustra, 
spiega, esemplifica tutti gli aspetti dei 
linguaggi attualmente disponibili su 
differenti sistemi, che vanno dal 
microcalcolatore ai sistemi time-sharing chi 
ha già acquisito esperienza in altri 
linguaggi, invece potrà saltare la parte 
preliminare, di introduzione alla materia, 
per entrare subito nel vivo del BASIC 
La base dell'informatica; le generalità del 
linguaggio BASIC, le istruzioni, il trattamento 
degli elenchi; tabelle, file, sottoprogrammi; I 
procedimenti grafici e le possibilità offerte, 
le istruzioni specifiche di alcuni sistemi 


PROGRAMMARE IN BASIC 
di Michel PLOUIN 

Come tutte "le lingue viventi”, il BASIC 
viene applicato in realtà a questa o a 
quella macchina sotto forma di dialetti più 
o meno particolari. Questo libro si sforza di 
descrivere in modo metodico il BASIC delle 
tre macchine più diffuse sul mercato 
mondiale: Apple, PET. TRS 80. e, 
naturalmente, i loro derivali. 

Ciò faciliterà anche la conversione di 
programmi scritti, da un determinato 
personal computer agli altri. Numerosi 
esempi (programmi verificati attentamente) 
chiariscono i concetti proposti e sono 
immediatamente riutilizzabili da i possessori 
dei sopracitati personal. 

SOMMARIO 

Introduzione - Le variabili - Funzioni - Logica di 
svolgimento di un programma - Dialogo con la 
macchina - Funzioni speciali - Effetti grafici ed 
altri - Preparazione dei programmi codice ASCII e 
caratteri speciali - Calcolo binario ed 
esadecimale - Esempi di programmi 
cod. 513A pag. 94 L 8.000 


COME PROGRAMMARE 
di Jean Claude BARBANCE 

Il libro insegna a chi programma come 
deve enunciare e definire correttamente 
l'idea iniziale, come analizzarla e 
trasformarla, e come verificare la 
correttezza della stessa sino a giungere alla 
stesura di un programma ben 
documentato, leggibile e facilmente 
modificabile. Vengono esplicitate tutte le 
altre fasi intermedie del lavoro: le vie 
alternative che si presentano e tra cui 
scegliere, le eventuali estensioni, le prove e 
le verifiche che occorre fare per ottenere 
un programma conforme a quanto ci si 
era proposti. Poiché era necessario 
appoggiarsi a un linguaggio, si è scelto il 
8ASIC per la sua larga diffusione. I concetti 
esposti, comunque sono utilizzabili con 
qualsiasi altro linguaggio. I programmi 
presentati sono stati tutti provati e girano 
su computer da 4 a 64K di memoria. 
SOMMARIO 

Realizzazione dei programmi: le fasi - La 
definizione degli obiettivi - L'analisi - La codifica e 
la messa a punto del programma - Presentazione 
degli esempi - Rappresentazione di un numero 
decimale mediante una stringa di caratteri 
alfabetici - Il gioco del 421 - La contabilita 
personale 

cod. 511A pag. 192 L 12.000 
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L’ora di informatica 


di Riccardo Paolillo 


Dall’inizio di quest’anno scolastico, si sono molti¬ 
plicati i casi di introduzione di corsi di informatica 
nei programmi di studio in molte scuole. 

Probabilmente non poteva essere altrimenti visto 

10 straordinario interesse con il quale vengono seguiti 
i veloci sviluppi di questa scienza da un numero 
sempre maggiore di persone. 

Occorre osservare che già negli anni scorsi c’erano 
stati alcuni esperimenti di questo tipo in varie parti 
d’Italia; si trattava però, in genere, di casi isolati 
voluti da singoli insegnanti e presidi che con tanta 
passione e spesso pochi mezzi, cercavano di supplire 
con il loro sforzo alla mancanza di corsi istituziona¬ 
lizzati. 

Quest’anno, invece, sebbene manchi sempre un 
piano nazionale ministeriale (che sarebbe comunque, 
in questo momento, di problematica realizzazione), 
assistiamo alla nascita di corsi più organizzati, che 
coinvolgono organicamente varie scuole. 

A Milano buona parte dei licei prevede corsi di 120 
ore che coprono tematiche di base, affiancati a confe¬ 
renze e dibattiti. 

Ma l’informatica non entra solo nelle superiori: già 

11 prossimo anno verrà sperimentata a Torino nelle 


scuole medie e addirittura esiste il progetto di portare 
il calcolatore nelle elementari. 

Questi sono solo alcuni esempi di ciò che sta succe¬ 
dendo nel mondo scolastico italiano. 

D’altra parte, il processo di meccanizzazione di 
certe attività non intellettuali, procede sicuro ed in¬ 
esorabile e tra pochissimi anni doversi servire di un 
terminale per compiere determinate operazioni ban¬ 
carie o per ricercare un libro nella biblioteca comuna¬ 
le, sarà assolutamente necessario per tutti noi. 

Occorre quindi smitizzare il calcolatore, soprattut¬ 
to per quanto riguarda le applicazioni personali, for¬ 
nendo a tutti la preparazione di base che ne consenta 
un proficuo impiego. 

L’obiettivo è quello di far sì che l’informatica di¬ 
venti una materia di studio fissa per tutte le scuole 
dell’obbligo e superiori. 

Naturalmente non sarà facile realizzarlo: esistono 
attualmente dei problemi reali, come i costi delle 
attrezzature necessarie e la reperibilità di insegnanti 
qualificati, che rendono di difficile attuazione questo 
progetto. Per ora è importante incentivare le attività 
attualmente in fase di sperimentazione, e cercare di 
promuoverne altre che spesso, grazie al patrocinio di 
aziende private, possono vedere la luce con stanzia¬ 
menti pubblici modesti o addirittura inesistenti. 

Ma soprattutto occorre evitare a tutti i costi che 
dopo un periodo di euforia iniziale caratterizzato da 
investimenti anche cospicui, tutto torni come prima e 
al danno economico si aggiunga la beffa di aver perso 
un’altra grande occasione per portare i programmi 
della scuola al passo con i tempi. ■ 
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oscillatore ni 

oscillatore a battimenti 

oscillatore a quarzo 

oscillatore a rilassamento 

oscillatore di rilassamento a bloccaggio 

oscillatore quarzato 

oscillazione/ 

oscillazione /a campo ritardante 
oscillazione pendolare 
oscillografo m 
oscillografo a raggi catodici 
oscillogramma m 
oscilloscopio ni 
ospite, calcolatore ' 
ottale agg 
ottale. cifra^ 

ottetto m (byte composto da 8 bits) 
ottica delle fibre 
ottico agg 
ottimare v 

metodo 


oscillaior n 

beat frequency oscillator 
quartz oscillaior 
astable multivibrator 
blocking oscillator 
quartz oscillator 
oscillation n 

retarding-field oscillation 
hunting n (unstablc condition) 
oscillograph n 


initialize v (program) 
initialize, to ' a volume 


conversion 


inizializzare v(programma) 
inizializzare un volume 


vorbereiten v 

einen Datentràger einrichten. einen 


conversion 

oncetc.) 

conversion 

conversion, 

conversion 


"(from old System to new trasformazione/(di un impianto ecc.) Umrùsiung f, Umstellung./ 


(of signalsetc.) 

, program ' 
instruction 


trasformazione /. conversione/ 
conversione di programmi 
istruzione di conversione 


Umformung/. Umsetzung /' 
Programmkonvertierung / 
Ums etzbefe hl » 
iUmri 



metodo di accesso sequenzial 
metodo di lettura 
metodo di Monte Carlo 
metodo di ordinamento 
metodo di programmazione 
metodo di registrazione 
metodo di ricerca 
metodo di riconoscimento e 
metodo di trasmissione 
mettere a punto (un programrrla 
mettere a punto in linei* 
mezza parola 
mezzi ni pi 
mezzo ni 

mezzo addizionatore 
mezzo di immagazzinamento 
mezzo di protezione dati 
mezzo fisico di trasmissione 
mezzo trasmissivo (hardware 
controllo della trasmissione) 
MF - modulazione di frequen. 
micro ni 
microcalcolatore /«(calcolato » 
intorno ad un microprocesso < 
generalmente completo di 
periferiche) 
microcalcolatore, sistema a ' 
microcalcolatore monochip 
microcalcolatore su singola s< 
microciclo m 
microcircuito m 
microcircuito integrato 
microcomputer m 
microcomputer, piastra di - 
microcomputer didattico 
microcomputer single chip 
microcomputer su un unico c 
microcontroller m 
microelaboratore m (raro) v. 

microprocessore 
microelettronica / 
microfiche / 
microfilm m 
microfilm, uscita su - 
microfilmatura / 
microfotogramma m 
microistruzione/ 
microistruzione / 
micrologica/ 
micrologico m 
micrologico LSI 
microminiaturizzato, circuito 
microminiaturizzazione / 
micromodulo m 
microonde / 
microoperazione / 
microplacchetta / 
microplacchetta/(di un micrc 
microprocessore (pP) m 
microprocessore a chip singoi 

trasmettere 


trasmettere i 
trasmettere v 

trasmettere per telescrivente 
trasmettitore m 
trasmettitore in 
trasmettitore sincrono 
trasmissione / (di dati ecc.) 
trasmissione/(di messaggi ecc 
trasmissione, fattore di - 
trasmissione, sistema di - 
trasmissione a banda laterale 
trasmissione a corrente di lav« 
trasmissione a corrente di rip< 
trasmissione a più terminali 
trasmissione analogica 
trasmissione asincrona dei da' 
trasmissione automatica 
trasmissione binario-sincroni 


trasmissione byte-seriale 
trasmissione circolare 
trasmissione dati 
trasmissione dati asincrona 
trasmissione dati in start-stop 
trasmissione dati sincrona 
trasmissione dati su canale unico 
trasmissione dati via cavo telefonico 
trasmissione dei dati 
trasmissione dei dati a distanza 
trasmissione di dati 
trasmissione di immagini 
trasmissione di messaggi 
trasmissione diretta 
trasmissione diretta dei dati 
trasmissione in burst mode 
trasmissione in corrente continua 
trasmissione in fonia 


8-bit byte 
fiber optics 
optically readable 
optimize v 


Ijjeei 

nslatio^ 
n table. translation table 


tabella di conversione 


urmf^flii 


Umsetztabelle f. Umseizungstabelle 
f 

\L*mt 


Pag 


sequential access method (SAM) 
reading method 
Monte-Carlo method 
sorting method 

programmine — -' 


conversion transconductance 
conversion unii, converter n 

convert ridata etc.) 
converter n see conversion unii 

convertir.. 


assestamento 

trasconduttanza di conversione 
convertitore »».convertitrice/ 

convertire v(daii.etr t 


_.»rnQtA&[\V^ 


Oev» 

OWO Mown*»^ 


Umwandlungszeit / 
Mischsteilheit / 

Umsetzer* in. Umwandler m, 
Konverter m 
umsetzen v.umwandeln v 
■ 

Stromrichier ni 

Parallel-Serien-Umsetzer (PSU)* 
Serien-Paraltel-Umsetzer m 

Kùhlluftgeblàse n 

Koordinaten f pi 
Koordinierung/ 

Kopiergeràt n 
ìpieren v.duplizieren v 


iie/. Duplikat n, Zweitexemplar n 
%W 'hschlag m(Kopie) 

, 1 »V elfachungs-Funktion/ 

othalterm 
n 

*1 (elektr.) 
risystem n 

gnetkern etc.) 
r . Kernspeichermatrix / 

steuerung/ 


aren Hrogramme. 
lemoduln. 
r . Bibliothek 


rmcn 
microi 
microi 
COM(i 
microfil 
micro-ii 
microinsi 
dementai 
micrologit 
chip// 

LSI chip ' 
microcircuit 
microminiatui 
micromodule 
microwave n 
microoperatioi 
printed Circuit 
microcomputer 
microprocessor n 
single-chip micrt 


transmit v 
send \ 
tdeprint v 
transmitter /i 
sender // 
synchro n 
transmission // 
transmission n 
iransmittance // 
communication System 
single sideband transmission (SST) 
open-circuii working 
closed-circuit operation 
broadcasting /? 
analog transmission 
asynchronous transmission 
automatic transmission 
binary synchronous communication 
(BSC) 

uy rg -^ i / i Hgm r m^u rr 


register name 
register save area 
register select 

register-to-memory architecture 
register-type switching System 
reinitialize vsee reinitiate 
reinitiate \. reinitialize v 

reject i 

reject ». select v.outsort v(cardeic.) 

reject n. rejection n 

rejector n see paratie) resonam circuii 

reject pocket 


nome del regi? _ 

area di salvataggio reiT5 
selezione registro 
architettura registro/memoria 
sistema a registro 

reinizializzare v 

rigettare v, respingere v 
scartare v (schede), espellere v 
(schede) 

rigetto m. reiezione / 


rekey »• 
relation test 
relative adj 
relative address 

relative addressing 
relative coding 
relative error 
r i fi’niii n humidit y 


UNA PROPOSTA DEL 


casella di scarto 

immettere di nuovo (a tastiera) 
esame di confronto 
relativo agg 

indirizzo relativo, indirizzo 
spiazzabile 

indirizzamento relativo 

codifica££HSS£Ìativa 

errore 
umid: 


asynchronous transmission 
start-stop data transmission 
synchronous data transmission 
single-channel data transmission 
telephone line transmission 
data traffic 

remote data transmission 
data transmission 
picture transmission 
message transmission 

Wr^Etanpato i8$ a 1?^i& c „ ab , csig „, 

burst mode (transmission) reliability n 



relay vsee retransmit 
relay // 

relay calculator 
relay matrix 
release v 

release li 


relative Adressierung 
relative Codierung 
relativer Fehler 

relative Luftfeuchtigkeit. relative 
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mazione relativa. 

Programmierung 


Relais* zi 
Rekns^edftncr « 


is KeLiisvecnncr m . 

amen*frrelè Rekiskoppclfefd// 

e vfumtà ecc.).t frelgeben v (Gerii. Puffer etc.) 


£od 


voice communication 


reliability, assessed - 


relè m, relais m 
calcolatore a relais 
campo di accoppiai 
liberare v, abilitare v 
rilasciare v(buffer ecc.) 
liberazione/. rilascio m(di unità ecc.) Freigabe f 
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affidabilità/ ZuverISssigkeit /, Beiriebssirherheit 

aftidabilità valutata geschàtzte Zuverlàssigkeit 



Antrieb in 
Antrtebskette / 
Anlriebsmolor m 
Antriebsregelung /'(der 
Magnetbandeinheit) 
Antriebswelle f 
Anrwort / 

Antwort des Operatore 
antworten v 
Antwortmeldung / 
Antwortsignal n 
Antwortzeit / 

Anweisung* / 

Anweisung f 

■Anweisung / (zur Geràtebe 
^flnweisung/(bei problcmc 
Programmiersprachen) 
Anweisung /(bei maschine 
Sprachen) 

Anweisung an das Progran 
veisung in Primàrsprac 
veisung, arithmetische 
veisung, ausfùhrbare *■ 
veisung, nichtausfiihrb 
veisung, symbolische - 
veisung, unbedingte - 
veisung, zusammenges 
veisungsmarke / 

An vetsungsnummer / 

An vender ni 

venderarbeitsbereich r, 

An venderdaiei / 

An venderebene / 

An vendermakro m 
An|vendermaske / 
■enderorientiert adj 
venderprogramm n 
An venderprogrammierun 
n venderechnittstelle / 
An vendereoftware / 

vendersoftware/(vom 
{ :schrieben) 
vendersysteme, dedizie 
venderunterprogramm 


An 

An 

An 

An 

An 

An 

An 


se ]uentielle 


sec tentielle Steuerung 
set ìentielle Struktur 
sec ìentielle Verarbeitung 
sec ìentielle Zugriffsmeth< 
sec /entieller Rechner 
sec lentiellerSpeicher 
set; lentiellerZugriff 
Set uentiellrechner in 
uenz /“(Sàize oder Zeic 
Set uenzspeicher ni 
aldrucker m 
aldruckwerk* n 
e/ 
e / 

e, in - 

Il t3<f)(0bertragung etc 
sii ad\ 

ser ;II aufgebaut 

elle asynchrone Schnit 
elle Binàrùbertragung 
Ile Organisation 
elle Start-Stopp-Uberi 
elle Synchronùbertragi 
ser elle Obertragung 
ser elle Verarbeitung 
serfeller Betrieb* 

ller Datentransfer 
serfeller Ein-/Ausgabekan: 


ser *1 riff 


Registe rbezeichnu ng 

___ _ fereich m 

Registerauswahl / 

Register-zu-Speicher-Architektur/ 
Registersystem n 

neu emleiten, neu einrichten, neu 
vorbereiten 
zurùckweisen v(ailg.) 
aussteuern ». zurùckweisen v. 
rùckweisen v 

Zuruckweisung/. Rùckweisung / 

Restfach //. Fehlerfach n. 

Rùckweisungsfach / 
erneut eingeben 
Vergleich ut 
relativ adj 
relative Adresse 



Ser enmultiplikation / 


ennummer f 

Parallelbetrieb in 
en-Parallel-Schaltung 
en-Parallelsystem // 
en-Parallel-Umsetzer. 
en-Parallel-Umselzun; 
enprogrammierung/ 
enrechner ni 
enschaltung f 
enschnittstelle / 
n-Serien-Betrieb m 
enspeicher in 
nspeicherung ( 
entransfer ni 
niibertragung / 


Ser enverarbeitung/ 


Ser 

Ser 

Ser 

Ser 

Ser 

Set 


ice-Rechenzentrum /i 
ice-Techniker m 
omechanismus in 
omotor m 
osystem n 


fische 


grafische Einheit (normiertt 
grafische Losung 
grafisches Ausgabegeràt 
grafisches Datenverarbeitu 
grafisches Symbol 
grafisches Terminal 
Grammatik f 
grammatische Analyse 
grammatischer Fehler 
Graph »/i 

Graphik... s. Grafik... 
graphisch adì s. grafisch 
Gray-Code ni 












Routine di caricamento 
per lo ZX Spectrum 

Sono un assiduo lettore e utente 
dello ZX Spectrum della Sinclair. 
Desidererei avere delle soddisfacen¬ 
ti informazioni sull’uso del linguag¬ 
gio macchina (Assembler) ed in par¬ 
ticolare vorrei: 

a) alcune routine per caricare il lin¬ 
guaggio macchina nella memoria 
del computer; 

b) informazioni sull’input e l’output 
dei dati che verranno elaborati 
dal programma caricato; 

c) avere, se possibile, alcuni pro¬ 
grammi (in linguaggio macchina) 
dimostrativi. 

Coretti Antonio 
Matera 


memorizzato il programma BASIC 
viene automaticamente a trovarsi la 
nostra routine. 

Questo metodo presenta il vantag¬ 
gio di non richiedere il caricamento 
esplicito in memoria (dato che avvie¬ 
ne in modo automatico con il LO AD 
del programma BASIC) e di non ri¬ 
chiedere la protezione del program¬ 
ma da possibili sovrascritture (infatti 
in esecuzione le istruzioni REM ven¬ 
gono ignorate). 

Anche di questa tecnica abbiamo 
pubblicato alcuni esempi di utilizzo: 
le segnalo, ad esempio, l’articolo 
“Rotazione bidirezionale su video 
dello ZX81’’ pubblicato nel n. 10-11. 

Per quanto riguarda l’input e out¬ 
put dei dati, non dipende dalla tecnica 
di caricamento utilizzata, ma da co¬ 
me effettivamente opera la routine 
inserita. Tenga comunque presente 
che le operazioni di input e output, 
che normalmente sono piuttosto labo¬ 
riose da scrivere in programmi BA¬ 
SIC, diventano ovviamente molto più 
complicate nei programmi in linguag¬ 
gio macchina. 


effetti, non rende certo giustizia alle 
sue notevoli possibilità. Stranamente 
vengono minimizzate o addirittura 
taciute alcune delle caratteristiche 
più interessanti e innovative. 

Da qualche tempo è comunque di¬ 
sponibile presso i rivenditori autoriz¬ 
zati la “Guida al C 64“ in versione 
italiana, ottimo e corposo testo vera¬ 
mente esauriente. Speriamo, per ilfu¬ 
turo, che venga consegnato gratuita¬ 
mente agli acquirenti del C 64, in 
quanto costituisce un utile se non indi¬ 
spensabile mezzo per sfruttare al me¬ 
glio il calcolatore. 

Per quanto ci riguarda, stiamo pre¬ 
parando una serie di articoli su appli¬ 
cazioni musicali con C 64, che pubbli¬ 
cheremo molto presto. 

Le ricordo che nel n. 40 di Bit sono 
stati pubblicati due articoli di Mirko 
Gremes su questo argomento. 



Inverse video Spectrum 


Esistono vari metodi per caricare 
routine in linguaggio macchina e al¬ 
cuni sono stati illustrati su numeri 
precedenti della rivista. 

Nel numero 8-9, nell'ambito della 
rubrica I segreti dei personal, il no¬ 
stro collaboratore Marcello Spero ha 
presentato alcune routine scritte in 
linguaggio macchina e un piccolo pro¬ 
gramma BASIC per caricarle in me¬ 
moria. 

Il programma esegue ciclicamente 
prima la lettura mediante una istru¬ 
zione READ dei byte da caricare (che 
ovviamente devono essere presenti in 
opportune istruzioni DATA) e quindi 
li memorizza tramite una POKE. 

Un altro metodo, molto usato per 
introdurre brevi routine utilizzate da 
programmi BASIC, consiste nell’in- 
serire all’inizio del programma una 
istruzione REM apparentemente sen¬ 
za senso, ma contenente in realtà i 
byte della routine linguaggio macchi¬ 
na da caricare. In questo modo all’ini¬ 
zio della zona di memoria in cui è 


C 64 e musica 

Ho acquistato recentemente un 
Commodore C 64, attratto dalle sue 
interessanti caratteristiche. In effetti 
è un ottimo calcolatore, ma ritengo 
che il manuale italiano di utilizzo in 
dotazione sia poco esauriente su al¬ 
cuni importanti argomenti. 

In particolare, il capitolo che trat¬ 
ta della possibilità di ottenere suoni 
è molto corto e sicuramente poco 
chiaro per i principianti. Io ho pro¬ 
vato a scrivere qualche programma, 
ma i primi risultati non sono stati 
eccezionali. Avete in previsione 
qualche articolo che possa aiutarmi? 

Marco Zetti 
Milano 


Il manuale in dotazione al C 64, in 


Vi scrivo per porvi alcune doman¬ 
de riguardo lo Spectrum della Sin¬ 
clair. 

In particolare vorrei conoscere lo 
scopo dei comandi “True video” e 
“Inverse video” in quanto essi non 
vengono trattati dal manuale. 

Greggio Daniele 
Novara 


L’effetto del comando Inverse vi¬ 
deo, che va comunque inserito in una 
striga da stampare, è quello di inverti¬ 
re la matrice dei punti di tutti i carat¬ 
teri che seguono. 

Il ripristino si ottiene ovviamente 
utilizzando il comando True video. Il 
comando Inverse può anche essere in¬ 
serito nelle linee di programma per 
ottenere la stampa in campo inverso 
del listato. 
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VIC Pilot 



Anche sul VIC 20 
questo linguaggio 
che permette 
la programmazione 
della grafica 
ad alta risoluzione 
in modo semplice 
e lineare 


di Flavio Stella 

I linguaggi Pilot e Logo 
stanno ottenendo un suc¬ 
cesso considerevole per le 
loro possibilità logiche e grafiche tra 
gli appassionati ed anche nel campo 
professionale dell’educazione. 

Questi due linguaggi sono incen¬ 
trati sulla gestione grafica di una 
immaginaria “tartaruga” che muo¬ 
vendosi lascia una traccia delle sue 
evoluzioni sullo schermo formando 
così il disegno in alta risoluzione che 
costituisce l’oggetto principale del 
programma. 

È necessaria l’espansione minima 
di 8 Kbyte per poter caricare in me¬ 
moria l’interprete Pilot e lasciare 
uno spazio sufficiente ai programmi 
veri e propri. 

La logica Turtle Graphic 

Il metodo grafico, a tutti noto ed 
usato nell’insegnamento della mate¬ 
matica analitica, è basato sull’utiliz- 
zo delle coordinate cartesiane x e y 
che determinano univocamente la 
posizione di un punto nel piano, 
permettendo così di descrivere linee 
e figure come insieme dei punti 
aventi le coordinate soddisfacenti 
una espressione algebrica che viene 


chiamata equazione. 

L’approccio Turtle Graphic è so¬ 
stanzialmente più istintivo e pertan¬ 
to più adatto ad un utilizzo amato¬ 
riale ed educativo. Immaginandosi 
di camminare al posto del simpatico 
animale, il programmatore deve de¬ 
scrivere i movimenti e le distanze a 
partire dalla sua posizione attuale 
anziché da un generico punto detto 
origine. 

Un quadrato sarà descritto da un 
cammino di n passi ed un cambia¬ 
mento di direzione di 90° ripetuti 
quattro volte come se si stesse pas¬ 
seggiando sul perimetro di un’aiuo¬ 
la quadrata. 

Con questo metodo è possibile 
avvicinare i bambini (anche delle 
prime classi elementari) all’uso del 
calcolatore che nel contempo forni¬ 
sce loro i mezzi per l’acquisizione di 
concetti geometrici e topografici di 
notevole utilità. 

L’interprete Pilot 

L’interprete è quell’insieme di 
istruzioni che permette di trasfor¬ 
mare un set di parole e regole sintat¬ 
tiche in azioni elementari gestite dal 
microprocessore. Le istruzioni che 
definiscono l’interprete devono rea¬ 
lizzare le intenzioni del programma¬ 
tore in modo corretto e rispettando 
le priorità assegnate. 

Il programma (listato 2), scritto 
completamente in BASIC, permette 
l’utilizzo di tre gruppi di istruzioni: 
dirette, di input/output e logiche, 
grafiche. 

L’interprete Pilot controlla la po¬ 
sizione, la direzione ed il movimento 
della tartaruga condizionandola alle 
istruzioni del programma e alle 
eventuali informazioni ricavate dal¬ 
la tastiera, da confronti relazionali, 
da calcoli elementari. 

La grafica è costruita su un qua¬ 


dro di 160x176 pixel e, con l’espan¬ 
sione minima richiesta di 8 Kbyte, 
rimangono 2 Kbyte per i programmi 
Pilot; il risultato che si ottiene è un 
disegno tracciato punto per punto, 
con un metodo familiare a chi ha già 
lavorato con il VIC in alta risoluzio¬ 
ne, nitido e simpatico ma, purtrop¬ 
po, un po’ lento. È possibile modifi¬ 
care il programma per ottenere una 
maggiore velocità di esecuzione se si 
possiede la cartuccia Super- 
Expander. 

L’editor Pilot 

L’editor è quella serie di istruzioni 
che codifica e immagazzina nella 
memoria le righe del programma 
permettendo poi le modifiche e le 
correzioni che si rendessero necessa¬ 
rie. Non vi sono differenze sostan¬ 
ziali con l’editor del BASIC, comun¬ 
que è opportuno ricordare che: 

• le correzioni si possono fare in 
qualsiasi punto della riga e che il 
tasto RETURN inserisce la riga cor¬ 
retta in memoria al posto della ver¬ 
sione precedente; 

• la cancellazione di una riga si'ot- 
tiene digitando il numero della riga 
ed il tasto RETURN cioè memoriz¬ 
zando una riga nulla; 

• ogni riga di istruzioni non prece¬ 
duta da un numero viene considera¬ 
ta un comando diretto. 


Istruzioni operative 

Essendo tutta la memoria interna 
del VIC utilizzata per creare lo 
schermo ad alta risoluzione l’inizio 
del programma BASIC deve essere 
spostato alla locazione 8192 prima 
di caricare in memoria il programma 
e lanciarlo-, se questa operazione non 
viene eseguita, il programma si 
autocancellerà in parte creando in- 
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1$ Accumula i caratteri ricavati dalla routine in LM sino al RETURN. 

M W° massimo delle linee di programma (può essere modificato a piacere). 

C$(n) Vettore istruzioni Pilot. 

G$(n) Vettore istruzioni grafiche. 

B$(n) Vettore argomenti delle istruzioni PEN, BORDER, SCREEN. 

L N° di linea Pilot. 

L$(k) Istruzioni contenute nella riga k. 

N%(y) Vettore delle variabili numeriche y = [(valore ASCII della lettera)-64]. 
S$(y) Vettore delle variabili alfanumeriche y = [(valore ASCII della lettera}-64]. 


Figura 1. Elenco delle principali variabili utilizzate nel programma. 


I - 3 Gestisce la routine in LM (caricata nel buffer della cassetta) che legge le istruzioni in 

fase di editing. 

4-10 Inizializza i vettori contenenti le parole Pilot. 

II Messaggio Pilot che conclude tutte le operazioni come READY. 

12 Legge l'input, se blank ripete. 

13 Elimina gli spazi che precedono il numero di riga o il comando. 

14-22 Gestisce i comandi diretti. 

23-30 Interpreta le istruzioni di programma. 

31 -50 Routine di esecuzione dei comandi diretti (vedi tabella 2). 

51 -60 Esegue il programma (RUN). 

61 Messaggio di errore (per codici vedi tabella 1). 

62 Routine di esecuzione delle istruzioni Pilot (vedi tabella 2). 

116-126 Riconoscimento delle istruzioni grafiche. 

127 Ritorna alla visualizzazione del testo per permettere la segnalazione degli errori o 
per fine procedura grafica. 

130-138 Esecuzione del comando iterativo W+TURN. 

139 Routine grafiche (vedi tabella 2). 


spiegabili vuoti e messaggi di errore. 

Ogni volta quindi che questo pro¬ 
gramma viene caricato è necessario 
inserire nuovi valori nei puntatori di 
inizio BASIC per mezzo della linea 
seguente: 

POKE44,32:POKE642,32:POKE 

8192,0:NEW 

Per interrompere l’esecuzione di 
un programma basta premere il ta¬ 
sto @ che restituisce lo schermo nor¬ 
male appena la linea in corso di ese¬ 
cuzione è completata. Se si tratta, 
però, di un processo iterattivo molto 
lungo il ritardo può essere rilevante; 
in questo caso, o quando si è creata 
una routine che richiama se stessa 
senza fine, sarà indispensabile tor¬ 
nare al Pilot attraverso il BASIC 
premendo RUN/STOP e RESTO- 
RE e poi digitando GOTOll. Così 
facendo il programma non verrà 
cancellato e sarà a disposizione per 
ripartire o per le modifiche necessa¬ 
rie. 

Nell’operazione di LOAD il pro¬ 
gramma caricato in memoria dal na¬ 
stro viene fuso con quello eventual¬ 
mente esistente in memoria; per ov¬ 
viare ai problemi che ne potrebbero 
derivare è opportuno ricordarsi di 
eseguire sempre un NEW prima di 
ogni LOAD. Questo inconveniente 
può essere trasformato in vantaggio 
se si vuole fondere una o più routine 
programmate separatamente in un 
unico programma; per ottenere que¬ 
sto risultato sarà necessario dare nu¬ 
merazione diversa alle righe delle 
singole sottoprocedure per evitare le 
sovrapposizioni. Per destinare i co¬ 
mandi Load e Save ad una unità 
floppy, modificare il programma 
come segue: 

41 OPEN 1,8,2, R$ + ”,S,W- 
”:PRINT 
”SAVING”R$ 


Figura 2. Descrizione delle principali 

45 OPEN 1 ,8,2,R$ + ”,S,R- 
”:PRINT 
“LOADING”R$ 

Qualsiasi infrazione alle regole 
Pilot o ai limiti imposti genererà un 
messaggio d’errore contenente il nu¬ 
mero di linea ed un codice (vedi ta¬ 
bella 1). 

Infine è da tener presente che l’in¬ 
terprete non è indifferente agli spazi 
posti fra le istruzioni; gli spazi prima 
del numero di linea e immediata¬ 
mente dopo vengono rimossi auto¬ 
maticamente, ma in tutti gli altri casi 
la presenza o l’assenza di uno spazio 
può generare un messaggio d’errore. 


Comandi diretti 

LIST xx-yy Esegue il listing del 


routine del programma VIC Pilot. 

programma tra le li¬ 
nee in argomento; uno 
od entrambi i numeri 
di linea possono esse¬ 
re omessi. 

RUN Esegue il programma 

Pilot in memoria. 

SAVE nome Registra il program¬ 
ma in memoria sulla 
cassetta. 

LOAD nome Carica in memoria il 
programma dalla cas¬ 
setta. 

NEW Cancella ogni istru¬ 

zione presente in me¬ 
moria. 

BASIC Restituisce il control¬ 

lo al BASIC. 

PLIST xx-yy Come il comando 
LIST ma con output 
su stampante. 

Ognuno di questi comandi può 
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1 Variabile con nome non ammesso. 

2 Label sconosciuta. 

3 Troppe subroutine richiamate contemporaneamente (max. 8). 

4 Istruzione E: incontrata alla line di una subroutine non precedentemente richiamata. 

5 Errore di sintassi. 

6 Divisione per 0. 

7 Variabile numerica fuori dall'Intervallo ammesso f>|32767|/ 

8 Routine grafica non preceduta dall'istruzione CLEAR. 


Tabella 1. Codificazione dei messaggi d’errore. 


32 

LIST 

62 

TYPE 

139 

CLEAR 

51 

RUN 

73 

JUMP 

142 

QUIT 

41 

SA VE 

76 

END 

145 

TURN 

45 

LOAD 

71 

USE 

147 

DRAW 

49 

NEW 

78 

MATCH 

157 

GO 

50 

BASIC 

85 

COMPUTE 

158 

PEN 

31 

PLIST 

101 

ACCEPT 

163 

SCREEN 



106 

IF 

165 

BORDER 



115 

HOME 





116 

GRAPHIC 






REMARK non si esegue 



Tabella 2. Linee del programma BASIC dove si trovano le routine che 
eseguono funzioni Pilot. 


ap W vtc Pilot_ 

essere accorciato anche ad una sola 
lettera: 

Esempio : L 10-25 lista il programma 
tra le linee 10 e 25. 

Variabili 

L’interprete riconosce come va¬ 
riabili alfanumeriche, quelle com¬ 
poste dal segno $ seguito da una 
lettera, come variabili numeriche in¬ 
tere, quelle precedute dal segno #. 

Istruzioni Pilot 

Le frasi Pilot, escluse le LABEL, 
consistono di: un nome, un condi¬ 
zionatore (facoltativo), il segno 
ed un argomento (numerico, alfanu¬ 
merico o variabile). 

T: = TYPE Stampa quello che è con¬ 
tenuto nell’argomento sullo scher¬ 
mo, sia esso testo o variabile; se la 
linea termina con non va a capo. 
Esempio'. 10 T:ANGOLO= # A 
stamperà ANGOLO=xx dove xx è il 
valore della variabile numerica inte¬ 
ra # A. 

A: = ACCEPT Riceve una informa¬ 
zione dall’utente per mezzo della ta¬ 
stiera, l’argomento può essere una 
variabile ma non è indispensabile, 
nel caso sia assente l’input viene im¬ 
magazzinato in un buffer che può 
essere consultato con l’istruzione 
MATCH. 

Esempio : 15 A: - 20 A:$V 
M: = MATCH Verifica se una o più 
stringhe in argomento sono conte¬ 
nute in una variabile alfanumerica 
oppure nel buffer di ACCEPT se 
questa non è presente; se la verifica 
dà risultato positivo viene messo a 1 
il flag Y (yes) altrimenti il flag N 
(not). 

Esempio : 15 M:12,DODICI- 

,XII, 1100 mette a 1 il flag Y seuna di 
queste rappresentazioni di dodici è 
nel buffer di ACCEPT 20 
M:$L,GARDA,COMO,ISEO dà 
Y=1 se uno dei nomi di laghi è con¬ 
tenuto nella variabile $L. 

I: = IF L’istruzione IF non è nor¬ 
malmente inclusa in questo linguag¬ 


gio ma è implementata in questo 
programma per permettere con¬ 
fronti tra variabili con gli operatori 
relazionali (<,>,=); il risultato sarà 
rilevabile dal valore dei flag Y e N. 
Esempio : 

30 I: # N=9 
35 I: # N< # L 
J: = JUMP 

U: = USE Corrispondono a GOTO 
e GOSUB però il loro argomento 
può essere sia un numero di linea 
che una LABEL. 

Esempio'. 35 J:5 
40 U:*-INIZIO 

E: = END Corrisponde al RETURN 
perchè chiude una subroutine e ri¬ 
prende dalla riga successiva all’i¬ 
struzione USE. 

C: = COMPUTE Questa istruzione 
calcola semplici espressioni lineari e 
senza parentesi fino ad un massimo 
di quattro operazioni, l’argomento 
deve essere un’equazione il cui risul¬ 
tato viene posto nella variabile nu¬ 
merica a sinistra dell’uguale. 
Esempio : 

15 C: # N= # G ★ 10/# T+15 
La variabile # R incontrata in un’e¬ 
spressione sarà considerata come 
valore casuale compreso tra 0 e 1. 
R: = REMARE Precede un com¬ 


mento. 

H: = HOME Cancella il testo e posi¬ 
ziona il cursore in alto a sinistra. 
G: = GRAPHIC In argomento con¬ 
tiene uno dei comandi della grafica 
elencati nel paragrafo successivo. 
END Viene posto a concludere la 
esecuzione di un programma Pilot e 
non può essere abbreviato né sog¬ 
getto a condizione come le altre 
istruzioni. 

CONDIZIONATORI Tutte le istru¬ 
zioni Pilot tranne END possono es¬ 
sere condizionate ai due flag Y e N 
che sono predisposti con le istruzio¬ 
ni MATCH e IF. 

Esempio : 10 TY:PROVA stampa 
PROVA se il flag Y = 1 
15 JN:★INIZIO salta a ★INIZIO se 
il flag N = 1 

LABEL Servono ad identificare li¬ 
nee di programma per le istruzioni 
Jump e USE senza ricorrere al nu¬ 
mero di linea che può non essere 
ancora noto, sono costituite da un 
nome qualsiasi preceduto da un 
asterisco. 

Esempio'. 

10*INIZIO 

20. 

30. 

40 JY:*INIZIO 
50. 
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ip r vie Piiot_ 

Istruzioni grafiche 

Tutte le istruzioni grafiche illu¬ 
strate in questo paragrafo devono 
essere precedute da G: come risulta 
da tutti gli esempi forniti. 

CLEAR Inizializza e cancella lo 
schermo ad alta risoluzione siste¬ 
mando fondo bianco, bordo blu e 
traccia nera; la tartaruga viene siste¬ 
mata al centro del quadro orientata 
a zero gradi, nord, questo comando 
deve essere il primo di ogni routine 
grafica. 

Esempio : G:CLEAR oppure G:C 
TURN Può essere seguito da un nu¬ 
mero o da una variabile che rappre¬ 
sentano il valore in gradi che viene 
aggiunto alla direzione attuale, la 
rotazione è oraria con angoli positi¬ 
vi e negativi. 

Esempio : G:T # A oppure G:T 90 
TURNTO Simile al precedente ma 
la direzione è fissata all’angolo in 
argomento in modo assoluto cioè 
non considerando la posizione at¬ 
tuale; qualsiasi abbreviazione deve 
comunque contenere il suffisso TO. 
Esempio : G:TURNTO 90 oppure 
G:TTO # A 

DRAW Muove la tartaruga per la 
distanza fissata nell’argomento la¬ 
sciando una traccia se la “penna è 
poggiata” (vd. PEN); se il disegno 
esce dal quadro visibile si genera un 
messaggio di avvertimento visualiz¬ 
zato al ritorno al “text mode”. 
Esempio: G:DRAW # A oppure 
G:D 120 

GOTO Posiziona la tartaruga con 
coordinate cartesiane che possono 
oscillare nell’intervallo [ — 106.65 ^ 
x ^108 e - 87 ^ 88]. 

Esempio: G:GOTO # X, # Y oppu¬ 
re G:GTO - 15,35 
GO Come DRAW ma non lascia la 
traccia, come DRAW e PEN UP. 
PEN Controlla il colore della traccia 
lasciata dalla tartaruga sullo scher¬ 
mo; i colori ammessi sono BLACK, 
WHITE, RED, C'/AN PURPLE, 
GREEN, BLUE, YELLOW; se 
PEN è seguito da E IASE il colore 
selezionato è quello c el fondo cosic¬ 
ché ripassando su un segno già pre¬ 


sente si ottiene l’effetto di cancellar¬ 
lo; PEN seguito da UP disinserisce 
la traccia nelle istruzioni DRAW 
che seguono, con PENDOWN si ri¬ 
abilita la scrittura; nessuno dei suf¬ 
fissi di PEN può essere abbreviato. 
Esempio: G:P GREEN 
SCREEN Cambia il colore dello 
schermo (sfondo) senza cancellare i 
disegni già realizzati; è seguito da 
uno dei colori visti per PEN. 
Esempio-, G:S RED 
BORDER Come SCREEN ma ope¬ 
ra sul bordo. 

QUIT Conclude la routine grafica e 
restituisce lo schermo normale; per 
permettere l’osservazione dei di¬ 
segni creati per un tempo a piacere 
questa istruzione è inibita con una 
GET che richiama se stessa sino alla 
pressione del tasto “Q”; QUIT deve 
essere l’ultima istruzione di ogni 
procedura grafica altrimenti, per in¬ 
terrompere il programma, si è co¬ 
stretti ad abortire la procedura pre¬ 
mendo il tasto (5). 

DRAW+TURN E spesso necessario 
ricorrere ad una serie di DRAW e 
TURN consecutivi, soprattutto di¬ 
segnando poligoni regolari, l’inter¬ 
prete Piiot permette di semplificare 
e abbreviare il programma con la 
forma: G:xx(DRAW yy;TURN zz); 
xx deve essere un numero intero 
mentre yy e zz possono essere nume¬ 
ri o variabili a seconda delle esigen¬ 
ze. 

Esempio: G:4(D # A;T 90)- 

quadrato di lato # A - 

G:3(D # A;T 60)-triangolo 

equilatero. 

Conclusioni 

Un programma dimostrativo scrit¬ 
to in Piiot è riportato nel listato 1. 

L’obiettivo del programma VIC 
Piiot è quello di permettere l’uso 
della Turtle Graphic sul VIC 20 con 
solo 8 Kbyte di memoria addiziona¬ 
le. Sacrificando parte della memoria 
disponibile per i programmi o di¬ 
sponendo di maggiore capacità, sa¬ 
rebbe auspicabile un ampliamento 
del set di istruzioni soprattutto per 


rendere possibile il comando del di¬ 
segno in modo interattivo con la fu¬ 
sione di immagini grafiche e testo; 
sarebbe anche utile poter utilizzare 
il suono per rallegrare l’attesa. Il 
programma si presta, in ogni caso, 
ad essere arricchito e nel contempo 
a ricompensare qualsiasi approfon¬ 
dimento con una migliore compren¬ 
sione dei meccanismi apparente¬ 
mente “automatici” che stanno 
diettro lo svolgimento di tutti i no¬ 
stri programmi. Per facilitare il 
compito a chi volesse arricchire l’in¬ 
terprete Piiot, la tabella 2 fornisce le 
linee del programma BASIC che co¬ 
dificano le varie istruzioni Piiot e la 
figura 1 e 2 contengono rispettiva¬ 
mente la lista delle principali varia¬ 
bili e l’elenco delle principali routi¬ 
ne. ■ 

Listato 1. Questo programma Piiot è 
stato scritto per dimostrare 
praticamente cosa è possibile 
realizzare e nel contempo provare 
V efficienza del vostro nuovo 
linguaggio VIC Piiot. 

1 G-C 

3 G : 6T0 -15/30 

5 C : #fi=l 

6 C : #B=16 

3 G : S WHITE 
10 G ; B P,EB 
12 U : *C0L0R. 

14 G•TT0 #B 
20 DESTAR 
22 G ; T 50 
24 G : P UP 
26 G ■ Il 25 
28 G-P D0WH 
30 C : #R=#fl+l 
32 C ; #B= : #B+72 
34 I : #B>360 
36 JN : 12 
38 J■80 
40 *STRR 

42 G : 5(1) 20JT 144) 

44 E: 

50 *CQL0R 

51 r*fi=l 

52 JV ; 61 

53 I=#fl=2 


11 










54 

JV • 63 Seguilo listalo I. 

70 

E 




55 

I 

#n=3 

30 

G 

ITO 

18 


56 

JV : 65 

81 

G 

P BLACK 


57 

I 

#fì=4 

32 

G 

GTG 

-50, 

-76 

53 

JV : 67 

83 

G 

D 40 



59 

I 

#R=5 

34 

G 

T 60 



63 

JS 

r' : 69 

85 

0 

20 <B 

2;T 

12) 

61 

G 

P BLUE 

86 

G 

GTG 

-25, 

-50 

62 

J 

70 

88 

G 

TTO 

198 


63 

G 

P CVRN 

90 

G 

D 3 



64 

J 

70 

91 

G 

GO 3 



65 

G 

P RED 

92 

G 

D 9 



66 

J 

70 

93 

G 

18 (B 

1JT 

-11 

67 

G 

P GREEN 

94 

G 

GTO 

-5, - 

40 

63 

J 

70 

96 

G 

TTO 

198 


69 

G 

P PURPLE 

97 

G 

B 26 




98 ( 


18CD UT - 

11) 

100 

G 

•P GREEN 


101 

G 

: GTO 13,-57 

102 

G 

: TTO -98 


106 

0 

•1KH 2, T 

-15) 

107 

G 

••T -20 


108 

G 

= 10<D 2.1 T 

-15) 

110 

G 

•P BLACK 


111 

G 

: GTO 34,-40 

112 

G 

: TTO 198 


114 

G 

:1(B 6;T - 

108) 

116 

G : 

2(B 5;T 1 

80) 

117 

rj: 

TTO 198 


118 

G : 

B 20 


120 

C- 

18(B UT 

-11) 

121 

G : 

P BLUE 


122 

G : 

TTO 0 


123 

0 : 

GTO -75,- 

77 

124 

G: 

1(B 140.: T 

90) 

126 

G : 

1(B 140.: T 

90) 

128 

G : 

B 140 


130 

G : 

QUIT 


131 

END 



Listato 2. Programma interprete Pilot. 

0 GOTO4 

1 I*= Mn 

2 SVS820 = IFPEEK<0> = 13THEHRETURH 

3 I *= I*+CHR* < PEEK ■' 0 > > : GOT02 

4 P0KE368S6,158sPOKE36869,240SP0KE648, 

30 

5 F 0 R 4—217 T0228sPOKEJ,158:NEXT:FQRJ=22 
9T0258sPOKEJ,159sNEXT 

6 OLE :M=200:DIMSX<9>,NK<26>,S*<26 >,L*C 
M > C* < 17 >, G* < 7 > , B* 1 © > 

7 PRINT"tJ| **** PILOT V2.1 ****"sFORX- 
820TO325:RER02:POKEX,Z:NEXT:FORX«0TO17 

S REfiDCi-CXJ sNEXT :FORX=0T07 s READG*(X> :N 
EXT :F 0RX=0T010 :REfìDB* < X sNEXT :0ATR32,20 

9 ORTR0,96 ..LI ST , RIJH.. SAVE , LORD... NEW , BRSI 
C.. FL. I ST, T , J , E., IJ , M , C , R , I , H , R , G , CLERR , QUI 
T., TURN 

10 DRTFlDRRW , GO,PEN,SCREEN,BOEDER ,BLACK 
,MHITE, RED,CVRN,PURPLE,GREEN,BLUE,VELLO 
W, EROSE, LIP 

11 FRI NT"SPILOT. " :DRTRDOWN 

12 G0SUB1SPRINTsIFRSCCI*>=32ANDLEN<I*> 
=1THEN12 

13 IFLEFT* C I * , 1 > = " "THENI*=MIO*< I*,2> : 
GOTO 13 

14 L=VRL I * > : IFLO0THEN23 

1 5 L= 1 : H--M : R* = 1TOLEN < I * > : IFMID 

* < I *, X , 1 > <> " '• THENNEXT 8G0T021 

15 R*=MID*< I ■$ ,X+1 > : I*=LEFT*<1*,X-1 > 

17 L—VAL<R*>sH=LsFORX=1TOLEN <R* >sIFMID 

* < R*, X, 1 > O" - " THENNEXT : GOTO 19 

18 L=VRL C I..EFT* C R* ,X— 1 > > :H=VAL<MID*<R*, 
X+1 > ) 

19 IFL=0THENL=1 

20 IFH=0THENH=M 

21 FORX=0TO6 :1F I*<>LEFT* < C* < X > , LEU C I * > 
>THENNEXT:PRI NT"UNKNOWN GOMMANO.":GOT01 
1 

22 ONX+1G0T032,51,41,45,49,50,31 

23 IFL>MTHENPRI NT"LI HE HUMBER OUT OF 
rfinge. " sGOTOi i 

24 X=LENCSTR*<L>>:X*=MID*<I*,X> :IFX*=" 
"THENL*<L>= ,,M : GOTO 12 

25 IFLEFT*CX*,1>=" “THENX*=MID*<X*,2>s 
GOT025 

26 X=3 sIFMID*<X*,2,1 /< : "THENX=4 : IFMI 


D* C X* , 3 , 1 :■ <>" : " THEHL* < L > «X* : GOTO 12 

27 FORZ—7T017:1FLEFT*<X*,1>OC*C 2>THEN 
NEXT SPRINT"ILLEGRL COMMRHD.":G0T011 

28 IFK11D* CX* , 2 , 1 > = " V " THENZ—Z+13 

29 IFKIui G--!i ,2, 1 — i: n"THEHZs?Z+26 

30 L* C L =CHR* < Z-S ) +M IO* < X* , X > : GOTO 12 

31 OPEN1,4 :GOTO33 

32 OPEN1,3 

33 FORX=LTOH :XFL*<X> = "”THEN39 

34 X*=”s"s2=ASC<L*<X>>:IFZ>40THENX*=LE 
FT* <L*<X>,1>:GOT038 

35 IFZ>26THENZ=Z-26sX*="N"+X* 

36 IFZ>13THEHZ=Z~ 13 s X*-"V"+X* 

37 l .1 r 1 Z+6 >+st 

38 PR I NT# 1, X ; X* ; M10* L* C X > , 2 > 

39 GETX*: IFX*0""THENCLOSE1 :GOTO 11 

40 NEXT:CLOSE1 :GOTO11 

41 OPEN 1.1.1,R*:PRINT"SAVIHG "R* 

42 FORX=1TOM : IFL* <X> = ""THEN44 

43 PRINT# 1 ,XCHR*13>CHR*<34>L*<X>CHR* 
■.:34>CHR*< 1 3 > ; 

44 NEXTXsCLOSE1sGOTOll 

45 OPEN1,1,0,R*:PRINT"LORD INO "R* 

46 INPUT#1,X : IFSTTHEN48 

47 INPUT#! .LlOO :IFST=0THEN4S 

48 CLOSE1sGOTO 11 

49 G0T06 

50 PRINT"IgJIXITING TO BASIC." :END 

51 L=0:FORX=1T02S:NX<X>=0 :S*<X>=*"":HEX 
T:P=©:FX*© 

52 L=L+1 :1FL=>MORL*<L > = "END"THEN11 

53 GETX*: IFH*="@"ANDCQX=0THEN11 

54 IFX*="@”ANDCQXss 1THENGOSUB127 sGOTO11 

55 IFL*<L>=""THEN52 

56 X=ASC < L* < L > : I FX>40THEN52 

57 I FX>26THENX=X—26 s I FF5i=1THEN52 

58 IFX>13THENX=X—13sIFFX=0THEN52 

59 C*=K1 IO*<L* CL> ,2> 

60 0MXG0T062,73,76,71,78,85,101,106,11 
5,52,116 

61 PRINT"ERROR #"E"IN L.INE"L sGOTOi 1 

62 Z=0: IPRIGHT*<C*,1> = ";"THENZ=1 : C*=LE 
FT * ■ C* . L EN <. C* > - 11 

63 FQRX=1T0LEN<C*>:X*=MID*CC*,X,1>sIFX 
*="#"THEN67 

64 IFX$="*"THEN68 

65 PRINTX*;sNEXT rIFZ=0THENPRINT 

66 GOTO52 

67 G0SUB69 :X*~3'TF1*'i.NXV .> 1 :G0T065 
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S£ 00'l'iJBf-- O/T J 1 Y> iGOTOt" 1 : 

6? X X+ 1 : V ASC<■ MIO*<'CJ,X, l > >-64 : IFV- 10 
PV: 26THEH! --- 1. :G0T061 

70 RFTUPM 

71 II KTHENE- 3 :GOTOG1 
7 r- I sSJ2<P>=L 

?'< iFvflLo:ti : : i’THEHi. vni o: i ■ i sOOTOsa 

74 FORI : 1 TOM : IF r f- L J •' X > THE NNEXT : E-2 : G 
0T06 1 

75 L tXsG0TQ52 

76 IFP=GTHEHE--4 :GOTOG1 

77 : F'" :P=P~1 :GOT052 

78 1 : CJ*CJ+ " , " :X J=AC* : IFLEFTJ <CJ 1 > = 
" J" THENG03UB83 

79 FORZ*XTOLEH< CJ > : IFMIDJCCJ.Z, 1 >0" , " 
THEHHEXT 

80 7 J=M IDJ <CJ, X,2-: ; :■ :FORV= 1TOLEN<X*> : I 
F i'11DT < X* , V, LEN<2J > > iZJTHENFX* 1 : GOT052 

81 NEXT s IFZ<LEN<CJ.>THENX=Z+1 :00T079 

82 FX=0 SGOT052 

33 Y—ASl i.MTDJCCJ ,2> >-64 :1FY< 10RV>2STHE 
HE: 1 sGOTQSl 

84 X* =ST<V >:X—4 : RETURN 

85 Fi --3 : Z=0 : X J= " " : IFLEFTJ CCJ, 1 > O " # "ORCI 
IDT CJ . •?, 1 > O " = " 1 HEHE=5 : G0T061 

86 V=1 : :T=MIOJ':CJ,R, 1 ' :fl=A+l : IFMIDJ'XJ 

,R,1 THEHA=A+1 :V=-1 

87 IFMIDJCCf,fl, 1 >O•’#"THENY*V*VALC MI 0 J 
1 «, Ri > :ft- R+LEMv STR J V >-l sOOTOSl 

88 H=fiSC <; MI DJ < C J , A+1 > > -64 :1 FX< 10RX>26T 
HENE=1 : GOTOG 1 

89 I FX= 18THENV=V*RHD C 1> : G0T091 
9i3 V-Y+HX\X ■' :A*A+2 

91 IFXJ="="THEHZ=V 

92 IFXJ="-"THEHZ=Z-Y 

93 IFXJ—"+"THENZ=Z+V 

94 IFXJ="/"AHDY=8THEHE=6:GOTOG1 

95 IFXJ="*"THEN2=2*Y 

96 IFXJ="/"THEHZ=Z/V 

97 IFRO.LEH < C J > T HEUSS 

98 X=ASC<MI0J<CJ,2>>-64:IFX<10RX>26THE 
NE=1iGOTOG1 

99 IFZ>327670RZ<-32767THENE=7:GOTOG1 

1 00 NX i X >=Z : OOT052 

101 T FC J= " " THENGOSUB1 :ACJ=IJ SPRINT sGOT 
052 

102 X=RSC ■: MI D J <: C J , 2 > :> -64 :1 FX< 10EX>26TH 
ENE=1:GOTOG1 

103 G0SIJB1 :Z=VAL<IJ> SPRINT : IFl-EFTJCCJ, 
1>="#"THENNX<X>=Z 

1©4 IFLEFTJ<CJ,1> = "J"THENSJ<X > = IJ 

105 G0T052 

106 I FLEFTJ '1CJ , 1 ><>" # " THENE=5 sGOTOG 1 

107 X=HSC<MIDJ<CJ,2>1-64sIFXC10RX>26TH 
ENE=1sGOTOSl 

108 H=NX<X> :XJ=MIDJ<CJ ,3, 11 :1FMIDJ<CJ , 
41 > O" # " THENX-VRL < MI DJ < C J, 4 > > ; DOTO 111 

109 X=ASC<MI0J<CJ,5>1-64 :IFX<10RX>26TH 
ENE=1 :GOTOG1 

110 X=HX C X1 

111 FX=0 :1FXJ="<"RNDRCXTHENFX-. 1 

112 IFX J=">"RNDR>XTHENFX=1 

113 IFXJ="="RNDR=XTHENFX=1 

114 GOTO52 

115 PRINT"3“;SG0TO52 

116 Y—0 sFORZ= 1 TOLEN <. CJ1 :IFMIDJ i. CJ,Z, 11 
•C>" "THEHHEXT SGQT0121 

117 RJ=MIDJ<CJ,2+11 :CJ*LEFTJ<CT,Z-1> si 
FRIGHTJ<CJ,21 = "TO"THENY=1 :CJ=LEFTJ<CJ,L 
EHCCJ1-21 

113 FORZ=1TOLEN<RJ1:XJ=MIDJ<RJ, Z, 11 :IF 
XJO" ,"RNDXJO" ; "THEHHEXT :G0T0121 
1 19 IFXJ—" "THEH130 

120 XJ=LEFTJCRJ,Z-11:RJ=MIDJ<RJ,Z+1> 

121 FORZ—0TO7 : IFCJOLEFTJCGJCZl ,LENCCJ 
11THEHHEXT:GOTO126 

122 I FCQ5i=0RNOZO0THENE=8 : GOTOG 1 

123 IFZ=2RNDV=1THEN167 

124 IFZ=4RNDY=1THEN168 

125 ONZ+1 GOTO 139., 142, 145,147,157,158, 1 

63,1S5 

126 GOSIJB127 :PRINT"UNKNOWN GRAPHICS" :P 
RINT"GOMMANO IN LIHE ":L sGOTO11 


127 COX=0 SP0KE36864,10:P0KE3686G , 150sP 
0KE3G867.46 :P0KE36869,240 :P0KE36873,27 

128 IF0SX=1THENPRINT"*PL0T HE NT OFF SO 
REEH " 

129 PRIHT :m : : RETURN 

130 D—VAL<CJ>:V=LEN<STRJC0 >>s CJ=MIDJ <C 
J , V+1 > : IFDO0THEN126 

131 IFC JOLEFTJ < G J < 3 > , LEN C C J > >THEH 126 

132 FORZ*1TOLENCRJ>: IFMIDJ CRJ.Z,1>O"s 
"THENNEXTsGOTO126 

133 CJ—LEFTJ<RJ,Z—1>:XJ=MIDJ<RJ,Z+l> 

134 FORZ*1TOLEN<XJ>: IFMIDJ<XJ,2,1>O" 
"THEHHEXT:GOTO126 

135 RJ=MIDJ C XJ,Z+1>sXJ=LEFTJ <XJ,Z-1>: I 
FX JOLEFTJ < G JC 2 > , LEN < X» > "■> THEN126 

136 XJ=RJ 

137 F I—l J:GO TO147 

138 R*=XJsGOTO145 

139 CQJi* 1 : UD.--.-=0 :OSX=0 :P0K.E36864,12: PGK 
E363S6,148 :P0KE36867,23 

140 P0KE36869,252:POKE36879,30:C0=8:SC 
=2:BC=6:AH=0:X0=0:V0=0 

141 FORI=0TO219 :POKE7680+1,1:NEXT:FOR1 
=409£TO7615 :F'OKE 1,0:NEXT :G0T052 

142 GETXJ : IFXJO"Q"THEH142 

143 REM 

144 G0SUB127:G0T052 

145 SQSUB169 :AN=AH+Z:D*D-1 :1FCO0THEH13 

146 D*0 : G0T052 

147 GOSUB169 :IF2<0THEN126 

148 TH=<90-RN>*3.1415926/180 

149 FORV—GTOZ:XG=X0+V*COS<TH >:YG*Y0+Y* 
si h<: th :> : i fud;;=0THENGOsub i 52 

150 NEXT:X0=XG:Y0=YG:IFD>0THEH138 

151 G0T052 

152 U=I NT <<XO+106.65 >/1.35+.5>:V=88-1H 
T<VG+.5) 

153 CH--1NT< VX 16>*20+1NT<U/8> :R0*(.VX 16- 
IHT< VX 16:0*16 

154 IFCH<0ORCH>220ORXC<-106.650RXG>103 
THENOSfi* 1 : RETURN 

155 BY=4096+16*CH+R0:BI = 7-<U-1NT<U/8>* 

156 POKE38400+CH,COsPOKEBV,PEEKCBV/OR< 
2TBI>:RETURN 

157 GOSUB169:TH=<90-RN>*3.14159265/180 
:X0=X0+Z*COS (. TH> : Y0=Y0+Z*SIN<TH > :G0T052 

158 FORZ=0TO10 :1 FR JOB J < Z / THEHHEXT :GOT 
0126 

159 IFZ<8THEHC0=Z S00T052 

160 IFZ=8THENCO=SC-l:G0T052 

161 IFZ=9THEHUDX=1:G0TG52 

162 XFZ=10THEHUDX=0:G0T052 

163 FORZ--0TO7 :1 FR JOB J Z > THENNEXT :GOTO 
126 

164 SC=Z+1:P0KE36879,SC*16+BC—S:G0T052 

165 FORZ=0TO7 :1 FR JOB J < Z > THEHHEXT : GOTO 
126 

166 BC=Z:P0KE36873,SC*1S+BC—8:G0T052 

167 GOSUB169 :AH=Z:0OT052 

168 GOSUB169:Y0=Z:RJ=XJ:GOSUB169:X0=Z: 
G0T052 

169 Z*VRL<RJ> : IFZO0ORRJ= "0”THEN 173 

170 IFLEN<RJ>O20RLEFTJ < RJ , 1 >O " # "THEN 
E=1:00SUB127sOOTOSl 

171 Y=ASC<RIGHT J<RJ,1>>-64 :1FY<0ORV>26 
THENE=1 :GOSUB127:G0T061 

172 2=H"; Y "■ 

173 RETURN 


t a. s 

imboli <Lir -- 

-ri ir i 


7 

: 1 

a = 

SHIFT 

HOME CCHRJC147> 3 


1 

■ = 

CTRL 

1 CCHRJ' 144.0 

11 

: 1 

SI = 

CRSRT 

CCHRJC17J3 

50 

: 1 

a = 

CRSR’t 

CCHRJ<17> 1 

1 15 

: 1 

3 = 

SHIFT 

HOME CCHRJ<147>3 

123 

: 1 

3 = 

SHIFT 

HOME CCHRJ<147>3 


1 

B = 

CTRL 

1 CCHRJC144ÌO 
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rfobabilità 
frequenza relativa 


Un programma 
per Apple II 
che esemplifica 
i concetti esposti 


di Riccardo Mazzurco e Manlio Flora 

S pesso nello studio di alcu¬ 
ne materie scientifiche vie¬ 
ne privilegiato l’aspetto te¬ 
orico di alcuni argomenti rispetto 
alle esemplificazioni pratiche. 

Ciò impedisce che venga compre¬ 
so a pieno il legame che esiste tra i 
fenomeni reali ed i modelli matema¬ 
tici che li rappresentano. 

Nel nostro caso ci siamo occupati 
di alcuni aspetti fondamentali della 
teoria della probabilità. 

Tale teoria è nata dalla necessità 
di valutare qualitativamente gli 
eventi casuali e pronosticarne l’an¬ 
damento; le nozioni basilari di cui ci 
occuperemo sono quelle di frequen¬ 
za relativa e di probabilità. 

La frequenza relativa F(E) di un 
evento casuale E è data dal rapporto 
fra il numero N di volte in cui tale 
evento si è verificato, in un insieme 
di M prove in ciascuna delle quali 
avrebbe potuto verificarsi, ed il nu¬ 
mero M stesso, cioè: 

F(E) = N/M 

Come criterio di valutazione di 
probabilità, visto che ci troviamo in 
presenza di un evento ripetibile, 
possiamo dare il seguente: 
assumiamo come probabilità il limi¬ 
te cui tende la frequenza relativa di 
successo al divergere del numero di 
prove (supposto che tale limite esi¬ 
sta). 

Diamo un semplice esempio di 


tutto ciò: 

come è intuitivo lanciando una mo¬ 
netina, non abbiamo alcun motivo 
per dire a priori che il risultato sarà 
più facilmente testa o croce; in ter¬ 
mini probabilistici, ciò significa che 
i due eventi, testa e croce, sono equi- 
probabili, cioè: 

P(testa) = P (croce) = 1/2 

Per dimostrare quanto detto lo 
statistico inglese K. Pearson lanciò 
una monetina 12.000 volte ottenen¬ 
do 6019 teste, con frequenza relativa 
0,5016; indi in una seconda serie di 
12.000 lanci ottenne 6.006 teste, con 
frequenza relativa 0,5005. 

Al giorno d’oggi, con l’avvento 
dei calcolatori, il signor Pearson 
avrebbe senza alcun dubbio scritto 
un bel programmino per simulare il 
lancio della famigerata monetina. 

Sulle sue tracce abbiamo intra¬ 
preso un’analoga esperienza: abbia¬ 
mo simulato con l’ausilio di un Ap¬ 
ple II una serie di lanci di 6 dadi 
calcolando le frequenze relative dei 
risultati. 

Chiunque sia dedito al gioco dei 
dadi sa che lanciando 2 dadi il risul¬ 
tato più probabile è il 7 poiché è 
ottenibile come: 

1+6 2 + 5 3+4 4+3 5 +2 
6 + 1 

mentre, per esempio 2 è ottenibile 
come: 

1 + 1 

Analogamente, lanciando 6 dadi, 
il risultato più probabile sarà 21 poi¬ 
ché è ottenibile dal massimo numero 
di combinazioni, ovvero 4.332 e la 
sua probabilità sarà: 

P(21) = N/M = 4.332/46.656 
dove il numero totale di combina¬ 
zioni possibili ottenibili lanciando 6 
dadi a 6 facce è dato dal numero di 
disposizioni con ripetizione di 6 ele¬ 
menti di classe 6, ovvero: 

66 = 46.656 

Ad esempio il numero 8 si può 
ottenere da 21 combinazioni diverse 
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Figura 1. Combinazioni possibili per 
ottenere 8 tirando sei dadi. 


N. 

Probabilità 

teorica 

n. Combinazioni 

6 

2E-05 

1 

7 

1.2E-04 

6 

8 

4.5E-04 

21 

9 

1.2E-03 

56 

10 

2.7E-03 

126 

11 

5.4E-03 

252 

12 

9.77E-03 

456 

13 

0,0162 

756 

14 

0,02488 

1161 

15 

0,0357 

1666 

16 

0,04816 

2247 

17 

0.06121 

2856 

18 

0,07353 

3431 

19 

0,08371 

3906 

20 

0,09047 

4221 

21 

0.09284 

4332 

22 

0.09047 

4221 

23 

0.08371 

3906 

24 

0,07353 

3431 

25 

0,06121 

2856 

26 

0,04816 

2247 

27 

0,0357 

1666 

28 

0,02488 

1161 

29 

0,0162 

756 

30 

9.77E-03 

456 

31 

5.4E-03 

252 

32 

2.7E-03 

126 

33 

1.2E-03 

56 

34 

4.5E-04 

21 

35 

1.2E-04 

6 

36 

2E-05 

1 


Figura 2. Tabella delle probabilità 
teoriche di ciascun risultato ottenibile 
lanciando 6 dadi. 
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Figura 3. Risultato dell’elaborazione con 5.000 iterazioni. 



Figura 4. Forma d’onda caratteristica della “gaussiana”. 


come si può vedere dalla figura 1. 

Il programma del listato 1, me¬ 
diante 6 loop nidificati, calcola il 
numero di combinazioni da cui si 
può ottenere ciascun risultato e la 
sua probabilità come rapporto tra 
tale numero e 46.656 (cioè 6 6) che è 
il numero totale di combinazioni 
possibili; la tabulazione è in figura 2. 

Queste sono le previsioni teori¬ 
che, ma, in pratica, le frequenze re¬ 
lative si discosteranno da esse di una 
certa quantità dipendente dal nume¬ 
ro di prove effettuate. 

Notiamo che la forma dell’isto- 
gramma delle probabilità in figura 3 
ricorda immediatamente la curva “a 
campana” tipica della distribuzione 
di Gauss, cioè quella della distribu¬ 
zione degli errori accidentali, intor¬ 
no al valore vero, nella misurazione 
di una grandezza fisica. 

11 nostro caso è invece quello della 
distribuzione dei risultati dei lanci 
intorno al valore più probabile: il 
21 . 

Il programma del listato 2 per¬ 
mette di visualizzare la costruzione 
dell’istogramma dei risultati nel cor¬ 
so stesso della simulazione dei lanci. 

Il lancio di un dado viene simula¬ 
to per mezzo della funzione BASIC 
che genera dei numeri pseudo¬ 
casuali: la function di libreria RND. 

Essa genera numeri distribuiti 
con legge uniforme tra 0 ed 1; tali 
numeri non sono effettivamente ca¬ 
suali, ma vengono calcolati median¬ 
te un preciso algoritmo ed è per tale 
ragione che vengono definiti 
pseudo-casuali. 

La function R(X) nella riga 130 
simula il risultato di un lancio di un 
dado, generando un numero intero 
compreso tra 1 e 6. 

Infatti si può dimostrare che dis¬ 
ponendo di una serie di numeri x che 
seguono una legge uniforme tra 0 ed 
1 se ne può ottenere una di numeri y 
che seguono una legge uniforme in 


un intervallo di estremi a e b me¬ 
diante la seguente relazione: 
y = a + x (b — a) 

È significativo notare che l’argo¬ 
mento X della function R(X) è fitti- 
zio, cioè esso non compare nell’e¬ 
spressione il cui valore viene asse¬ 
gnato ad R(X); ciò è dovuto al fatto 
che la function di libreria RND vie¬ 
ne aggiornata automaticamente dal¬ 
la macchina e dal fatto che non ven¬ 
gono accettati nomi di function pri¬ 


vi di argomento. 

Il risultato del lancio di sei dadi è 
dato dalla somma dei risultati di sei 
chiamate successive della R(X) che 
si possono considerare indipendenti 
e non è ottenibile, come si potrebbe 
erroneamente pensare, dal calcolo 
diretto di un unico intero compreso 
tra 6 e 36. 

Nella riga 220 vengono dimensio¬ 
nati i vettori contenenti rispettiva¬ 
mente i risultati dei lanci, le frequen- 
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ze relative e le probabilità. 

Il corpo principale del program¬ 
ma va dalla riga 300 alla riga 520; 
nella riga 370 viene calcolato il risul¬ 
tato del lancio di 6 dadi e nella 420 
viene incrementato il corrisponden¬ 
te contatore, quindi dalla riga 470 
alla 530 vengono aggiornati il conta¬ 
tore dei lanci e Cistogramma. 

Per evitare che l’istogramma, rag¬ 
giunti certi valori, uscendo fuori 
dallo schermo causi un errore, è sta¬ 
to inserito un test nella riga 510. 

Se il test risulta positivo, viene 
chiamata la subroutine di cambio 
scala; tale sottoprogramma dimezza 
la scala dell’istogramma e ridisegna 
il grafico precedente nella nuova 
scala, restituendo quindi il controllo 
al loop principale. 

Si passa infine alla tabulazione 
dei risultati dei lanci nonché a quella 
del confronto tra le probabilità cal¬ 
colate teoricamente e le frequenze 
relative ottenute dalla simulazione 
della situazione reale. 

A questo punto, balza all’occhio, 
che all’aumentare del numero di ri¬ 
petizioni la forma deH’istogramma 
tende sempre più a quella di una 
“campana”; ciò farebbe sospettare 
che l’istogramma converga ad una 
gaussiana, sospetto giustificato pie¬ 
namente dal sussistere delle ipotesi 
del teorema di De Moivre - Laplace. 

Notiamo, infine, che l’avere as¬ 
sunto come valutazione di probabi¬ 
lità il limite della frequenza relativa, 
è giustificato, nel nostro caso parti¬ 
colare, in base ad alcuni importanti 
risultati della teoria dei grandi nu¬ 
meri. 

Omettiamo in questa sede enun¬ 
ciati e dimostrazioni di tali teoremi 
che appesantirebbero non poco la 
trattazione; chi fosse interessato ad 
ulteriori approfondimenti può con¬ 
sultare, tra gli altri, i seguenti testi di 
Luciano Daboni: 

“Calcolo delle probabilità” - ed. Bo- 
ringhieri 

e per una trattazione più approfon¬ 
dita, 

“Calcolo delle probabilità ed ele¬ 
menti di statistica” ed. UTET. ■ 


70 ET ri re. Ciò) .PCit. > 

«3li REM -= - - - 

VI) Rrr. I OOP DI CALI*.01 t) 

1 fiO REM - - - 

1.10 FQR 1 * 1 TO 6 

1.20 POR J - 1 70 6 

130 EOR K 1 1 TÙ 6 

140 FOR L - 1 TO 6 

150 FOR M = 1 TO ò 

16G FOft N * 1 T0 6 

170 Z = I « I + K 4• L + M + N 

180 R%(7) - RX(Z) + 1 

190 NEXT 1 NI XT ! NEX1 l NEXT J NL XI 5 NtX J 
200 RFM 

21.0 ftFrt LA VARIABILE 0 

220 REM CONTIENI-. TUTTI 

230 REh 1 CAST POSE li: ILI 

240 REM - 

250 C - 4AA5A 

ZÒO rem T - A TP 3ò 

270 P<T> ^ RX<I) / c 

200 REM --*■- - - = 

290 REM APFROr.CIflAZIONr 
300 REM A 5 CIFRE DECIMAI,l 
:io REM - - 

370 P(I> -= INI (P(I) * lfiU000 > / lOutiùu 

330 REM -- - - -•- = 

340 REM TABU! AZIONE VAL ORI 
330 RFH DEI ! A DROP M.TI ITA ' 

3A0 RFH - ------ 

370 PP'tNT ICC!) 

SfiO NFXT 
390 FND 


Listato 1. Programma per il calcolo delle probabilità teoriche. 


Listato 2. Programma per la visualizzazione dell'istogramma dei risultati 
ottenuti lanciando sei dadi. 


10 TEXT : HOME : PRINT J PRINT 
2 0 PRINT " DISFCNO DI IJN ISTOGRAMMA" 

30 PRINT 1 PRINT l PRINT "QUESTA E' LA SIMULAZIONE" 

40 PRINT "DI UNA SERIE DI LANCI DI" 

50 PRINT "A DADI CON IL TRACCIAMENTO" 

60 PRINT "DELL'ISTOGRAMMA DEI RISULTATI" 

70 PRINT J PRINT 

SO INPUT "QUANTI LANCI DEVO FARE ? "N 
90 REM =================== 

100 REM FUNCTION CHE SIMULA 
110 REM IL LANCIO DI 1 DADO 
120 REM =================== 

130 DEF FN R(X) = 1 + INT <6 * RND (NI) 

140 VTAF.: 21J PRINT " 111111111122222222223333333" 

150 VTAB 221 PRINT " 6709012345678901234567890123456" 

160 REM ====================== 

170 REM DIMENSIONAMENTO 

180 REM VETTORE RISULTATI 

190 REM E VETTORI PROBABILITÀ' 

200 REM E FREQUENZA RELATIVA 
7.10 REM =======*=*==**======== 

220 DIM IST%<36),F(36>,P*(36> 

230 VTAF: 23 
240 PRINT 
250 FLASH 

260 REM ==*==========**= 

270 REM FATTORF. DI SCALA 

280 REM INIZIALE 

290 REM ================ 

300 SCALA = 4 

310 VTAB22: PRINT "LANCI" 

320 HGR t HCOLOR- 3 
330 FOR I = 1 TO N!J r fl 
340 REM ================ 

350 REM LANCIO DI 6 DADI 
360 REM =======" 3 =======- 

370 J * FN R ( X ) + FN R(X> + FN R<X) + FN R<X) + FN R(X) + FN R<X> 
380 REM ==================== 

390 REM INCREMENTO CONTATORE 

400 REM RISULTATI 

410 REM ==================== 

420 ISTZ(J) = IST%(J) + 1 
430 REM ============ 

440 REM TRACCIAMENTO 
450 REM ISTOGRAMMA 
460 REM =========== 

470 W « 7 * J 

480 S = 159 - IST7.(J) * SCALA 

490 FOR H = W TO W + 4 

500 HPLOT H,159 TO H,S 

510 IF‘ S < - 5 THFN GOSUB 1030 

570 NEXT 

530 VTAFJ 211 HTAB 2t PRINT IJ NEXT 
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Seguilo listalo 2. 




540 

NORMA! 



840 

F(I) =• ISTXU) / N 

ssn 

GET A* 


850 

F<I) * INT (F <I> * AP) / AP 

SAP 

REM 

= = =. 3 se. ■= = ms = -r- = ^ 


860 

PRINT li TAB< HlìFIIl: TACI 2B>iP»<I> 

370 

TvFM STAMPA RTSUI TATI 


870 

NEXT : GET fi%: HOME 

:.bo 

REM 



680 

PRTNT i PRINT 

:.9p 

TEXT 

HOME 


890 

PRINT " N FRED. REL, PR06." 

Ano 

PRTNT 

: PRTNT 


900 

PRINT : PRTNT 

AIO 

PRINT 

"T RTSUI.TATI SONO I SEGUENTI : " 

910 

FOR I - 19 TO 36 

620 

PRTNT 

: PRTNT : PRTNT 


920 

READ P$(I) 

AIO 

rnq u 

= A Tfl O 


930 

FCT) = IST%(I) / N 

640 

PRINT 

" "SHS" f' USCITO "!.ISTX<W)! TALI 

940 

F(I) - INT (FU) » AP) / AP 


VULT£’ 



950 

PRINT l : TAB ( 14 ) :r rr > • taf: , > • ut < t j 

650 

NEXT 



:96Q 

NEXT 

óóù 

FOR W 

= 10 TO 20 


970 

*^8 012, ,00015, ,00200, , 00270, .00510,.00977, .0 1620 , ,02888, 

670 

PRINT 

W; M E' USCITO 

*;IST%<W)J TABI IO)" VOLTI. ‘ 


‘ 06121 ’* 07353,.0B371,,09017,.09281,,09017,. 08371,. 073S3 

6B0 

NEXT 




' ^ì“; ,D3S7U ’ • 02 ' la8 ' -01(i2 0 , . 00977, ,005111 , . 0 0270 , . 00200 , . 00 04 

690 

GET AH 

: HOMF : PRTNT 

PRINT 


5,.00012, . 00002 ' 

700 

PRTNT 

: PRINT 


980 

BFT Ali HOME i END 

710 

FOR U 

- 21 TO 36 


990 

REM mmu« Ms ,» sbbms 

720 

PRINT 

WJ M E ' USCITO 

•;IST7.<W>; TABI 20)" VOLTE" 

100 0 

REM SUBROUTINE CAMBIO 

730 

NEXT : 

PRINT I PRINT 


1 010 

REM DI SCALA 

740 

GET A* 

: HOrlF 


1020 

REM 

750 

PRINT 

: PRINT 


1030 

HGR J HCOL DR= 3 

760 

PRINT 

"TABELLA PER IL 

CONFRONTO"J PRINT 

1040 

SCALA * SCALA / 2 

770 

PRINT 

•TRA FREQUENZE REI ATIVF E": PRINT 

1050 

FOR W = 12 TO 252 STEP 7 

780 

PRINT 

•PROBABILITÀ'": 

PRINT 

1 060 

K = W / 7 

790 

PRINT 

* N FREQ. 


1070 

S = 1S? - ISTZCK) * SCALA 

800 

PRINT 

: reiNT 


1 080 

FOR H - W TO W + 4 

810 

AP = 100000 


1090 

HPLOT H,159 TO H,S 

820 

FOR I 

= 6 TO 18 


110« 

NEXT J NEXT 

830 

READ P$ ( T ) 


1110 

RETURN 
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Per 'lavorare’ al meglio con il Pet e l’M20 

Paolo e Carlo Pascolo 
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Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un’irresistibile tentazione. Può capitare, così, che 
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rogrammer’s tool kit 
per Commodore 64 


- seconda parte - 


Il programma 
in linguaggio macchina 


di Alessandro Guida 


I n questa seconda parte viene 
presentato il listato disas¬ 
semblato del programma 
proposto nel numero 12/13 di Per¬ 
sonal Software. 

I numerosi commenti inseriti do¬ 
vrebbero permettere una buona 
comprensione delle varie routine de¬ 
finite. 

Vediamo comunque qualche spie¬ 
gazione aggiuntiva del programma. 

Una delle cose più interessanti è 
vedere come sia possibile aggiunge¬ 
re nuovi comandi al BASIC del C64. 

L’estensione del BASIC può esse¬ 
re fatta a due livelli. 

Si può modificare laTokenisation 
routine cambiando il vettore che ne 
conserva l’indirizzo di partenza 
($0304). Ma per comprendere que¬ 
sto tipo di intervento bisogna sapere 
come funziona l’interprete BASIC. 

Quando introduciamo una linea 
da tastiera (sia di programma sia da 
eseguire direttamente) questa viene 
“tokenizzata”, ossia le parole chia¬ 
ve, in essa contenute, vengono tra¬ 
sformate in codici di un solo byte. In 
ogni buon manuale sui sistemi Com¬ 
modore è riportato un elenco di que¬ 
sti codici chiamati, appunto, TO- 
KEN. Durante l’esecuzione della li¬ 
nea, quando viene incontrato un to- 
ken, lo stesso token è utilizzato co¬ 
me puntatore per leggere in una ap¬ 
posita tavola l’indirizzo della 
routine che esegue quel particolare 
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comando. La routine che svolge 
questa operazione è la Command 
Dispatcher Routine (puntata dal 
vettore $0308). 

Come si può intuire questo meto¬ 
do è tutt’altro che semplice, poiché è 
necessario scrivere una nuova Toke- 
nisation routine, una nuova Com¬ 
mand Disp. routine e una nuova ta¬ 
vola di indirizzi. 

Meno complesso è, invece, il siste¬ 
ma utilizzato in questo articolo. 

Siccome tutti i comandi che vo¬ 
gliamo implementare verranno uti¬ 
lizzati solo in modo diretto, e non 
inseriti in programmi, modifichere¬ 
mo la Handle Basic Line routine (è 
la routine che gestisce le line digitate 
da tastiera). 

Quando il vostro 64 è in attesa di 
comandi, ad esempio subito dopo 
l’accensione, sta eseguendo proprio 
questa routine. In particolare è oc¬ 
cupato a gestire l’input da tastiera (e 
il conseguente eco sullo schermo) e 
vi rimane finché non viene premuto 
il tasto di RETURN. 

A questo punto legge la linea del¬ 
lo schermo sulla quale giace il curso¬ 
re e la riporta in un buffer (BASIC 
input buffer) che parte da $0200. 
Subito dopo controlla se è una linea 
da eseguire direttamente, o è una 
linea di programma perchè comin¬ 
cia con un numero. Nel secondo ca¬ 
so, se c’è già nel programma una 
linea con lo stesso numero la cancel¬ 
la, poi tokenizza la nuova linea nel 
buffer, apre lo spazio necessario in 
memoria e la inserisce. Se invece è 
una linea da eseguire in modo diret¬ 
to, la tokenizza e passa subito alla 
Command Disp. routine che la ese¬ 
gue. 

L’indirizzo di partenza della 
Handle BASIC Line routine è con¬ 
servato nel vettore $0302, che modi¬ 
ficheremo introducendo l’indirizzo 
della nostra nuova routine. 


Intercettazione dei nuovi comandi 

La nuova- routine è nel disassem¬ 
blato a partire da $9A50. Questa 
controlla se la prima parola nel BA¬ 
SIC input buffer è una di quelle con¬ 
servate nella tavola che va da $9900 
a $993C. Se non lo è torna alla routi¬ 
ne di Handle originale ($A48A), in 
caso contrario carica l’indirizzo del¬ 
la routine che esegue il comando in 
questione e passa a eseguirla. 


Routine di Merge 

Da $993D a $9963 la routine rice¬ 
ve i parametri del programma che 
vogliamo includere in quello già in 
memoria (nome file e periferica do¬ 
ve leggerlo). 

Da $9965 a $9978 setta i parame¬ 
tri del file da aprire assegnando an¬ 
che un comando secondario “0”. 
Questo comando serve a fare in mo¬ 
do che nella operazione di load se¬ 
guente sia possibile rilocare il pro¬ 
gramma in una zona qualsiasi della 
memoria ignorando l’header della 
registrazione. 

Da $997B a $998C carica il pro¬ 
gramma a partire da 256 byte dopo 
il programma principale, segnalan¬ 
do eventuali errori in fase di lettura. 

A questo punto il resto della rou¬ 
tine si occuperà di leggere le linee del 
programma una per una, memoriz¬ 
zare la linea letta nel BASIC input 
buffer, cambiando i token in parole 
chiave, e chiamare quella parte della 
Handle BASIC routine che si occu¬ 
pa di inserire le nuove linee BASIC 
nei programmi. 

Poiché, però, la routine di inseri¬ 
mento termina con un JMP ($0302) 
dovremo modificare ancora questo 
vettore se vogliamo che dopo l’inse¬ 
rimento della linea il controllo torni 
alla routine di Merge. 
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Alla fine dell’intera operazione ri¬ 
porteremo il valore originale in 
$0302. 


Routine di Key 

La parte principale della routine 
che abilita l’uso dei tasti di funzione 
è la nuova IRQ routine. Ricordo che 
questa è una routine chiamata ogni 
sessantesimo di secondo da un timer 
hardware, e che si occupa tra l’altro 
della gestione della tastiera. 

Cambiando il vettore che ne con¬ 
tiene l’indirizzo possiamo aggiunge¬ 
re una nostra routine (da $9A90 a 
$9AD6) che controlla se è stato pre¬ 
muto qualche tasto di funzione. Se 
ciò è accaduto mette nel buffer la 
stringa associata al tasto altrimenti 
prosegue con la routine di IRQ nor¬ 
male. 

Il resto della funzione KEY è svol¬ 
to dalla routine in $9AD8. Le strin¬ 
ghe vengono memorizzate a partire 
da $9F80 e per ognuna sono riserva¬ 
ti 16 byte (la stringa termina al pri¬ 
mo byte uguale zero). Di conseguen¬ 
za per conoscere il punto dove una 
stringa va memorizzata o letta basta 
moltiplicare il numero del tasto fun¬ 
zione per 16, ossia bisogna eseguire 
4 ASL (Shift di 1 bit a sinistra). 

Routine di Dump 

La routine parte da $9B55. Legge 
tutte le variabili presenti in memoria 
partendo dalla fine del BASIC (pun¬ 
tatore $2D, 2E) sino alla fine della 
zona delle variabili (puntatore $2F, 
30). Le variabili occupano tutte 7 
byte ciascuna, indipendentemente 
dal tipo. I primi due byte sono del 
nome. Se la variabile è del tipo inte¬ 
ro sia il primo che il secondo caratte¬ 
re del nome hanno il bit 7 settato 
(OR 80). Se è una variabile stringa 


solo il secondo carattere, e se è del 
tipo floating point nessuno dei due è 
alterato. 

In $9BE4 viene chiamata la routi¬ 
ne SBBA2 che carica un numero in 
floating point dalla variabile nell’ac¬ 
cumulatore 1. Questo perchè il for¬ 
mato è leggermente diverso. Infatti 
nelle variabili float il bit più signifi¬ 
cativo rappresenta il segno mentre 
nell’accumulatore è la locazione $66 
ad indicare il segno: 

(00 = + FF = -). 


Routine di Find 

E da notare in $9C2D la chiamata 
alla Tokenisation routine. Così è 
possibile rintracciare anche i co¬ 
mandi BASIC all’interno del pro¬ 
gramma. Questo, però costringe a 
racchiudere le stringhe tra virgolet¬ 
te, altrimenti una parola come 
FORSE verrebbe interpretata come 
lo statement FOR seguito dalla va¬ 
riabile SE. 

La linea tokenizzata risiede nel 
BASIC Input Buffer. 

Routine di Help 

Per implementare l’Help è stato 
necessario modificare due routine 
dell’interprete BASIC: l’Error Rou¬ 
tine e la Print Token Routine. Come 
al solito cambieremo i vettori che 
puntano a queste routine, nell’ordi¬ 
ne $0300 e $0306. 

La nuova Error Routine è solo 
una aggiunta che permette di memo¬ 
rizzare il numero di linea in cui si è 
verificato l’errore (contenuto in 
$39,3A), e l’indirizzo (letto in $7A, 
7B) in apposite locazioni che verran¬ 
no poi richiamate dalla routine di 
Help vera e propria. Fatto questo si 
torna alla routine normale per la 
gestione tradizionale dei messaggi 


d’errore. 

La print Token Routine è, invece, 
una routine che viene chiamata per 
ogni carattere in fase di List di una 
linea di programma BASIC e che 
decide se si tratta di un carattere 
ASCII normale o di un token, nel 
qual caso stampa la parola chiave 
corrispondente. La modifica consi¬ 
ste nel decrementare, ogni volta che 
viene chiamata, il registro $9A4E 
che contiene il numero del carattere, 
a partire dall’inizio della linea, re¬ 
sponsabile dell’errore. Giunto a ze¬ 
ro tale contatore, e quindi raggiunto 
il punto delferrore, provvede a 
stampare un punto interrogativo. 

Inoltre, poiché la routine di List 
termina con un salto alla Error Rou¬ 
tine (ma solo per la stampa del RE¬ 
ADY), nella nuova Error Routine è 
incluso anche un controllo sulla lo¬ 
cazione $9A4F che indica se la rou¬ 
tine di List era stata chiamata dalla 
funzione di Help, e quindi se termi¬ 
narla con un RTS. 

A questo punto la routine di Help 
si riduce solo al calcolo della distan¬ 
za dall’inizio della linea dell’errore e 
ad una chiamata della routine di 
List. 

La routine di List, in generale, 
stampa tutte le linee del programma 
partendo da quella all’indirizzo con¬ 
tenuto in $5F,60 e terminando a 
quella di numero uguale al contenu¬ 
to di $14,15. Se, quindi, $5F,60 e 
$14,15 si riferiscono alla stessa linea 
ne verrà stampata una sola. 
L’indirizzo di partenza della linea 
viene cercato dalla routine $A613, e 
conservato in $5F,60. 


Routine Input due Parametri 

È una routine, che parte da 
$9D0E, comune a diversi comandi 
che richiedono l'input di due para- 
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metri. 

Effettua il controllo della sintassi e 
memorizza i due valori in $9A44, 
$9A45 e $9A46, 9A47. 

Routine Auto 

Come abbiamo già detto le linee 
digitate da tastiera vengono gestite 
dalla Handle BASIC Line Routine. 
Quindi l’attivazione della funzione 
Auto consiste solo nell’aggiunta alla 
Handle B. L. routine di una parte 
che provvede a calcolare il nuovo 
numero di linea, stamparlo sullo 
schermo e quindi ritornare il con¬ 
trollo alla routine originale. 


Routine Trace 

Questa funzione interviene sulla 
routine, di cui abbiamo già parlato, 
Command Disp. (o Baslink State¬ 
ment) che lancia l’esecuzione di ogni 
istruzione del programma. Poiché, 
però, ci possono essere più comandi 
sulla stessa linea, è necessario con¬ 
trollare se è cambiato il numero di 
linea prima di stamparlo. La funzio¬ 
ne di Step, se inserita, blocca l’esecu¬ 
zione finché non viene premuto un 
tasto qualsiasi. Il controllo è effet¬ 
tuato testando la locazione $C5 che 
contiene il codice del tasto premuto 
(40 se nessuno). 


Routine Delete 

La routine di Delete, dopo aver 
letto i valori dei due parametri attra¬ 
verso la Routine Input 2 Parametri, 
cancella le linee BASIC utilizzando 
la stessa parte della Handle BASIC 
Line Routine già utilizzata dalla 
routine di Merge. In questo caso, 
però, il buffer è lasciato vuoto per 
permettere la sola cancellazione del¬ 
le linee. ■ 


Questo programma è disponibile su cassetta: vedere 
coupon a pagina 78. 


Figura 1. Il listato del programma. 


033C 

033C 

033C 

033C 

033C 

033C 

033C 

033C 

033C 


033C 

033C 

78 




SEI 


033D 

A9 

9F 



LDA 

9F 

033F 

85 

FC 



STA 

$FC 

0341 

A9 

80 



L0A 

80 

0343 

85 

FB 



STA 

$FB 

0345 

A9 

50 



LDA 

50 

0347 

8D 

02 

03 


STA 

$0302 

03 4 A 

A9 

9A 



LDA 

9A 

034C 

8D 

03 

03 


STA 

$0303 

034F 

A9 

00 



LDA 

00 

0351 

A0 

7F 



LDY 

7F 

0353 

91 

FB 



STA 

($FB ) , Y 

0355 

88 




DE Y 


0356 

10 

FB 



BPL 

$0353 

0358 

A9 

9A 



LDA 

9A 

035A 

80 

15 

03 


STA 

$0315 

035D 

A9 

90 



LDA 

90 

035F 

80 

14 

03 


STA 

$0314 

0361 

A9 

8F 



LDA 

8F 

0363 

80 

00 

03 


STA 

$0300 

0366 

A9 

9C 



LDA 

9C 

0368 

80 

01 

03 


STA 

$0301 

036B 

58 




CLI 


036C 

60 




RTS 


9900 

9900 

9900 

9900 

9900 

48 

45 

4C 

50 



9904 

9C 

C6 





9906 

41 

55 

54 

4F 



990A 

9D 

61 





990C 

46 

49 

4E 

44 



9910 

9C 

12 





9912 

44 

55 

4D 

50 



9916 

9 e 

56 





9918 

52 

45 

4E 




991B 

9F 

12 





991D 

54 

52 

4F 




9920 

90 

CO 





9922 

40 

45 

52 

47 

45 


9927 

99 

3D 





9929 

10 

10 

10 

10 



992D 

A0 

A0 





992F 

44 

45 

4C 

45 

54 

45 

9935 

9E 

AF 





9937 

4B 

45 

59 




993A 

9 A 

D8 





993C 

00 






993D 

68 




PLA 


993E 

68 




PLA 


993F 

A2 

00 



LDX 

00 

9941 

20 

73 

00 


JSR 

$0073 

9944 

FO 

1F 



BEQ 

$9965 


* PROGRAM PIER ' S TOOL KIT* 

AMPEC div. Software 
via Panzani,13 
50123 FIRENZE 

dir. resp. Alessandro Guida 

ROUTINE DI INIZIALIZZAZIONE 


Puntatore zona stringhe 
istruzione KEY <$9F80) 


Aggiorna vettore 
Command Handler Routine 
($9A50) 


Azzera zona di memoria 
dedicata alle stringhe 
istruzione KEY 


Aggiorna vettore IRQ 
($9A90) 


Aggiorna vettore 
Error Routine ($9C8F) 


Nuovo TOP MEM ($37,38) 
PAROLE CHIAVE E INDIRIZZI 
DELLE ROUTINE RELATIVE 


BYT ?'HELP 
BYT !'AUTO 


BYT:'FINO 
BYT:'DUMP 


BYT:'REN 
BYT :'TRO 


BYT:'MERGE 
spazio libero 


BYT:'DELETE 
BYT:'KEY 


ROUTINE DI MERGE 

sntx. MERGE<"file")<,dev) 


Controlla la sintassi del 


9946 

C9 

22 


CMP 22 

comando e in caso di errore 

9948 

F0 

07 


BEQ $9951 

salta a $AF08 (stampa di 

994A 

C9 

2C 


CMP 2C 

SINTAX ERROR e READY). 

994C 

F0 

12 


BEQ $9960 


994E 

4C 

08 

AF 

JMP $AF0B 

Conserva il filename nel 

9951 

20 

73 

00 

JSR $0073 

buffer BASIC ($0200,0258) 

9954 

F0 

FB 


BEQ $994£ 

e il numero della periferica 

9956 

C9 

22 


CMP 22 

in $FE. 

9958 

F0 

E7 


BEQ $9941 

Come default si ha il 

995A 

9D 

00 

02 

STA $0200,X 

f i lendine = "" t e il 

995D 

E8 



INX 

dev.=l (registrator*). 

995E 

DO 

FI 


BNE $9951 


9960 

20 

73 

00 

JSR $0073 


9963 

B0 

E9 


BCS $994E 


9965 

85 

FE 


STA $FE 


9967 

8A 



TXA 

X=len("filename") 

9968 

A2 

00 


LDX 00 

Attribuisce al file da 

996A 

A0 

02 


LDY 02 

aprire il nome conservato 

996C 

20 

BD 

FF 

JSR $FFBD 

nel buffer ($0200). 

996F 

A6 

FE 


LDX $FE 


9971 

DO 

01 


BNE $9974 

Assegna al file il numero 1, 

9973 

E8 



INX 

il num. della periferica e 

9974 

A0 

00 


LDY 00 

il comando 0 (serve a igno- 

9976 

A9 

01 


LDA 01 

rare l’header della regist.) 

9978 

20 

BA 

FF 

JSR $FFBA 


997B 

A6 

20 


LDX $2D 


997D 

86 

F7 


STX $F7 


997F 

A4 

2E 


LDY $2E 

Carica il file già' definito 

9981 

CB 



INY 

in memoria, subito dopo la 

9982 

84 

F8 


STY $FB 

fine del programma, partendo 

9984 

A9 

00 


LDA 00 

dall'indirizzo in($F7,FB) 

9986 

20 

D5 

FF 

JSR $FFD5 


9989 

90 

04 


BCC $998F 

Se durante la fase di LDAD 

998B 

AA 



TAX 

ci sono errori: C=l;allora 

998C 

6C 

00 

03 

JMP ($0300) 

stampa un messaggio d’errore 

998F 

86 

F9 


STX $F9 


9991 

84 

FA 


STY $FA 


9993 

A9 

9D 


LDA 9D 

Aggiorna il vettore 

9995 

8D 

02 

03 

STA $0302 

Command Handler Routine 

9998 

A9 

99 


LDA 99 

($999D > 

999A 

8D 

02 

03 

STA $0303 


999D 

A0 

01 


LDY 01 

ROUTINE DI INSERIMENTO LINEE 

999F 

84 

OF 


STY $0F 

'flag delle virgolette 

99A1 

B1 

F7 


LDA ($F7 >,Y 

Se il HB del link della 

99A3 

DO 

03 


BNE $99A8 

linea puntata da ($F7,F8) e' 

99A5 

4C 

05 

9F 

JMP $9F05 

-0 allora passa a restaurare 

99A5 





il vettore ($0302) e termina 

99A8 

C8 



INY 


99A9 

B1 

F7 


LDA < $F7 >,Y 


99AB 

85 

14 


STA $14 

carica il numero della linea 

99AD 

C8 



INY 

in $14,$15 

99AE 

ei 

c 7 


STA $15 


99 B0 

C8 



INY 


99 B1 

84 

FE 


STY $FE ; 


99B3 

A4 

14 


LDY $14 


99B5 

A5 

15 


LDA $15 ; 

Converte il numero di linea 

99B7 

20 

91 

B3 

JSR $B391 ; 

da fix. in float.point e 

99BA 

20 

DO 

BD 

JSR $BDDD ; 

da float.point in ASCII 

99 BD 

A2 

00 


LDX 00 


99BF 

BD 

01 

01 

LDA $0101,X ; 


99C2 

FO 

06 


BEQ $99CA ; 

ricopia il numero dal buffer 

99C4 

9D 

00 

02 

STA $0200,X ; 

ASCII al BASIC Input Buffer 

99C7 

E8 



INX 


99C8 

DO 

F5 


BNE $99BF ; 

— 

99CA 

A4 

r E 


LDY $FE 


99CC 

DO 

OA 


BNE $9909 ; 


99CE 

C9 

22 


CMP 22 ; 



20 










































Programmerà tool kit 
per Commodore 64. 


Seguito figura 1. 


99D0 

DO 

06 


BNE 

$9908 


99D2 

A5 

OF 


LOA 

$0F 


99D4 

49 

FF 


EOR 

FF 


9906 

85 

OF 


STA 

$0F 

Finisce di cop i are la linea 

9908 

Bi 

F7 


LDA 

(♦F7),Y 

dalla memoria al Basic Input, 

99DA 

FO 

3F 


BEO 

♦ 9A1B 

Buffer, convertendo i token 

99DC 

30 

07 


BUI 

$99E5 

in parole chiave. 

99DE 

9D 

00 

02 

STA 

$0200,X 

'Non e’ un token 

99E 1 

C3 



INY 



99E2 

E8 



INX 



99E3 

DO 

E9 


BNE 

$99CE 

'Prossimo carattere 

99E5 

C9 

FF 


CflP 

FF 


99E7 

FO 

F 5 


BEO 

$99DE 

'Non e’ un token ma PI 

99E9 

24 

OF 


BIT 

$0F 


99Ee 

30 

FI 


BUI 

♦ 99DE 

'E' un carattere grafico 

99ED 






— 

99ED 

38 



SEC 


ROUTINE DI CONVERSIONE DEI 

99EE 

E9 

7F 


SBC 

7F 

TOKEN IN KEYWORD. 

99F 0 

86 

49 


STX 

$49 


99F2 

84 

FE 


STY 

$FE 


99F4 

AA 



TAX 



99F5 

AO 

FF 


LDY 

FF 


99F7 

CA 



DEX 



99F 8 

FO 

08 


BEO 

$9A02 


99FA 

ca 



INY 



99FB 

B9 

9E 

AO 

LDA 

$A09E,Y 


99FE 

10 

FA 


BPL 

$99F A 


9A00 

30 

F5 


BOI 

$99F7 


9A02 

A6 

49 


LDX 

$49 


9A04 

C8 



INY 



9A05 

B9 

9E 

AO 

LDA 

$A09E,Y 


9A08 

30 

06 


BOI 

$9A 10 


9A0A 

9D 

00 

02 

STA 

$0200,X 


9A0D 

E8 



INX 



9A0E 

DO 

F 4 


BNE 

$9A04 


9A1 0 

29 

7F 


AND 

7F 


9A12 

9D 

00 

02 

STA 

$0200,X 


9A15 

A4 

FE 


LDY 

$FE 


9A17 

C8 



INY 



9A18 

E8 



INX 



9A19 

DO 

BD 


BNE 

$99D8 


9A1B 

9D 

00 

02 

STA 

$0200,X 


9A1E 

98 



TYA 



9A1F 

38 



SEC 


Calcola l'indirizzo della 

9A20 

65 

F7 


ADC 

$F7 

prossima linea del file e 

9A22 

85 

F7 


STA 

$F7 

aggiorna $F7,$F8 

9A24 

90 

02 


BCC 

$9A28 


9A26 

E6 

F8 


INC 

$F8 


9A28 

A2 

FF 


LDX 

FF 


9A2A 

AO 

01 


LDY 

01 


9A2C 

4C 

86 

A4 

JMP 

$A486 

Salta alla routine di HANDLE 

9A2E 

00 

00 

00 



NEW BASIC LINE,che termina 

9A31 
9A34 

00 

00 

00 

00 

00 

00 



con un Jf1P(i0302) 


9A37 

9A37 

9A37 

9A37 

9A37 

9A3A 

9A3D 

9A3D 

9A40 

9A42 

9A44 

9A46 

9A48 

9A49 

9A4A 

9A4C 

9A4E 

9A4F 

9A50 

9A50 

9A50 

9A53 

9A55 

9A57 

9A59 

9A5B 

9A5B 

9A5D 

9A5F 

9A62 

9A64 

9A67 

9A69 

9A6A 

9A6B 

9A6D 

9A6E 

9A70 

9A72 

9A73 

9A74 

9A76 

9A79 

9A7A 

9A7C 


ZONA DI UEflORIA A DISPOSI¬ 
ZIONE DELLE ROUTINE DEL 
PROGRAflfìER ' S TOOL KIT 


4 b 

45 

59 



BYT:'KEY 

00 

00 

00 




4C 

00 

00 

JflP 

$0000 

Vettore di salto per le rou- 






tine dei nuovi comandi. 

00 

00 




(HELP) numero linea 

00 

00 




(HELP) puntatore Basic 

00 

00 




Parametro 'a' 

00 

00 




Parametro 'b' 

00 






00 





< STEP > 0=no l=si 

00 

00 




(STEP) ultima linea eseg. 

00 

00 





00 





(HELP) 

00 





(ERROR) FF=List 00=Ready 






NUOVA HANDLE BASIC LINE ROUT 

20 

60 

A5 

JSR 

$A560 

'riceve linea dalla tastiera 

86 

7A 


STX 

$7A 


84 

7B 


STY 

$7B 

'aggiorna puntatore CHARGET 

AO 

00 


LOY 

00 


A2 

00 


LDX 

00 


B1 

37 


LDA 

($37),Y 

'prende carattere dall'elon- 






'co nuovi comandi 

DO 

03 


BNE 

$9A62 

'se = 0 l'elenco e' finito 

4C 

8A 

A4 

JMP 

$ A48A 

'va alla routine normale 

30 

12 


BAI 

$9A76 

'parola trovata in elenco 

DD 

00 

02 

cnp 

$0200,X 

'confronta con car.tn buffer 

DO 

04 


BNE 

$9A6D 


C8 



INY 



E8 



INX 



DO 

EE 


BNE 

$9A5B 

'prossimo carattere 

C8 



INY 


- v - 

B1 

37 


LDA 

($37),Y 

cerca la prossima parola 

10 

FB 


BPL 

$9A6D 

chi ave in elenco 

C8 



INY 



C8 



INY 



DO 

£3 


BNE 

$9A59 


8D 

3F 

9A 

STA 

$9A3F 

mette l’indirizzo della 

C8 



INY 


routine interessata nel 

B1 

37 


LDA 

($37),Y 

vettore di salto 

80 

3E 

9A 

STA 

$9A3E 



Seguilo listalo 1. 




9A7F 

18 



CLC 



9A80 

A9 

FF 


LDA 

FF 

indica che e' una linea 

9A82 

85 

3A 


STA 

$3A 

eseguita in modo diretto 

9A84 

CA 



DEX 



9A85 

86 

7A 


STX 

$7A 

riaggiorna puntatore 

9A87 

E6 

7B 


INC 

$78 

CHARGET 

9A89 

20 

3D 

9A 

JSR 

$9A3D 

'esegue la routine del 

9A8C 






comando attraverso il 

9ABC 






vettore $9A3D 

9A8C 

4C 

74 

A4 

jnp 

♦A4 7 4 

'stampa READY e torna in 

9A8F 






attesa di una nuova linea. 

9A8F 






La routi ne in A474 termina 

9A8F 

con 

JDF($0302). 

9A8F EA 

OP : 

9 A90 






NUOVA IRQ ROUTINE 

9A90 







9A90 

A5 

C5 


LDA 

$C5 

'legge codice tasto premuto 

9A92 

C5 

02 


cnp 

$02 

— 

9A94 

FO 

OD 


BEO 

$9AA3 

controlla se e' lo stesso di 1 

9A96 

85 

02 


STA 

$02 

prima, se si non lo testa 

9A98 

38 



SEC 



9A99 

E 9 

03 


SBC 

03 

controlla se e’ un tasto di 

9A9B 

30 

06 


BOI 

$9AA3 

funzione,se no torna alla 

9A9D 

FO 

07 


BEO 

$9AA6 

routine IRQ originale. 

9A9F 

C9 

04 


cnp 

04 


9AA1 

30 

05 


BflI 

$9AA8 


9AA3 

4C 

31 

EA 

jnp 

$EA31 

'routine IRQ originale 

9AA6 

A9 

04 


LDA 

04 


9AA8 

A8 



TAY 



9AA9 

88 



DEY 



9AAA 

98 



TYA 



9 A AB 

OA 



ASL 


calcola l’offset per leggere 

9AAC 

OA 



ASL 


la stringa associata al 

9AAD 

OA 



ASL 


tasto funz. premuto. 

9AAE 

OA 



ASL 



9AAF 

OA 



ASL 



9AB0 

85 

FD 


STA 

$FD 


9AB2 

AD 

8D 

02 

LDA 

$028D 

'controlla se e' premuto lo 

9AB5 

29 

01 


AND 

01 

’ SHIF T 

9AB7 

FO 

07 


BEO 

$9AC0 


9AB9 

18 



CLC 



9 AB A 

A5 

FD 


LDA 

$FD 


9ABC 

69 

10 


ADC 

10 


9ABE 

85 

FD 


STA 

$FD 


9ACO 

A4 

FD 


LDY 

$F0 


9AC2 

A2 

00 


LDX 

00 

legge la stringa e la mette 

9 AC4 

B 1 

FB 


LDA 

<$FB>,Y 

nel buffer della tastiera 

9AC6 

FO 

07 


BEO 

$9ACF 


9AC8 

9D 

77 

02 

STA 

$0277,X 


9ACB 

C8 



INY 



9ACC 

E8 



INX 



9ACD 

DO 

F5 


BNE 

$9AC4 


9ACF 

86 

C6 


STX 

$C6 

'numero caratteri nel buff. 

9AD1 

68 



PLA 


— 

9AD2 

A8 



TAY 



9AD3 

68 



PLA 


chiusura della routine 

9 AD4 

AA 



TAX 


di IRQ 

9AD5 

68 



PLA 



9AD6 

40 



RTI 



9AD7 

EA 



NOP 



9AD8 






ROUTINE DI KEY 

9AD8 






sntx: KEY<n,)<stringa)(<) 

9AD8 






— 

9AD8 

20 

73 

00 

JSR 

$0073 

se non ci sono altri caratt. 

9ADB 

FO 

3B 


BEQ 

$ 9 B18 

va alla routine di list 

9ADD 

90 

03 


BCC 

9AE2 

se il car. seguente non e'un 

9ADF 

4C 

08 

AF 

jnp 

$AF08 

numero SINTAX ERROR 

9AE2 

85 

FE 


STA 

$FE 


9AE4 

Có 

FE 


DEC 

$FE 


9AE6 

A9 

2C 


LDA 

2C 


9AE8 

AO 

01 


LDY 

01 

'controlla che segua una 

9AEA 

20 

01 

AF 

JSR 

$AF01 

’ vi r go l a 

9AE0 

A5 

FE 


LDA 

$FE 


9AEF 

OA 



ASL 


calcola l'offset relativo a 

9AF0 

OA 



ASL 


'n' che punta la zona dove 

9AF1 

OA 



ASL 


deve essere memorizzata la 

9AF2 

OA 



ASL 


stringa 

9AF3 

A8 



TAY 



9AF4 

A2 

OA 


LDX 

OA 

num.mix di caratteri 

9AF 6 

20 

73 

00 

JSR 

$0073 


9AF 9 

90 

OF 


BCC 

$9B0A 

copia la stringa in memoria 

9AFB 

FO 

18 


BEQ 

$ 9 B15 


9AFD 

C9 

5F 


cnp 

5F 


9AFF 

FO 

07 


BEQ 

♦ 9B0B 


9 BOI 

20 

13 

B1 

JSR 

$6113 


9B04 

BO 

04 


BCS 

$9B0A 


9806 

90 

D7 


BCC 

$9ADF 


9B08 

A9 

OD 


LDA 

OD 


9B0A 

91 

FB 


STA 

($91> , Y 


9B0C 

CB 



INY 



9B0D 

CA 



DEX 



9B0E 

DO 

E6 


BNE 

$9AF 6 


9B10 

A2 

17 


LDX 

17 

STRINO TOO LONG ERROR 

9B12 

6C 

00 

03 

jnp 

($0300) 


9B15 

91 

FB 


STA' 

($FB > , Y 


9B17 

60 



RTS 



9B18 

A2 

00 


LOX 

00 


9B1A 

B6 

FE 


STX 

$FE 

routine LIST TASTI-STRINGHE 

9B1C 

A9 

37 


LDfi 

37 


9B1E 

AO 

9A 


LDY 

9A 


9B20 

20 

1E 

AB 

JSR 

$AB 1E 

stampa "KEY" 

9B23 

A5 

FE 


LDA 

$FE 


9B25 

18 



CLC 



9B26 

69 

31 


ADC 

31 


9B28 

20 

D2 

FF 

JSR 

$FFD2 

stampa 'n' 

9B2B 

A9 

2C 


LDA 

2C 



21 


























Programmerà tool kit 
_per Commodore 64 


Seguilo listato 1. 



9B20 

20 D2 FF 

JSR $FFD2 

stamp a ’, ’ 

9B30 

A5 FE 

LDA *FE 

9B32 

OA 

ASL 


9B33 

OA 

ASL 


9B34 

OA 

ASL 


9B35 

OA 

ASL 


9B36 

A8 

TAY 


9B3B 

B1 FB 

LDA UFB),Y 


9B39 

FO OC 

BEO S9BA7 


9B3B 

C9 OD 

CflP OD 


9B3D 

00 02 

BNE $9BA1- 


9B3F 

A9 5F 

LDA 5F 


9B A1 

20 02 FF 

JSR $FFD2 

stampa 1 -car.della stringa 

9BAA 

C8 

INY 

9BA5 

DO FO 

BNE 9B38 

prossimo carattere 

9BA7 

A9 OD 

LDA OD 


9BA9 

20 02 FF 

JSR *FFD2 


9BAC 

E6 FE 

INC ♦FE 


9BAE 

A5 FE 

LDA ♦ FE 


9B50 

C9 08 

CrtP 08 


9B52 

DO C8 

BNE *9B1C 

prossimo tasto 

9B5A 

9B55 

9B55 

60 

RTS 

ROUTINE DI DUAP 
snt>: : DUAP. 

9B55 

EA 

NOP 


9B56 

20 73 00 

JSR $0073 

se ci sono altri caratteri 

9B59 

FO 03 

BEO *9B5E 


9B5B 

9B5E 

AC 08 AF 

JflP *AF08 

SINTAX ERROR 

9B5E 

A5 20 

LOA *2D 

in 9FE,9FF inizio variabili 

9B60 

85 FE 

STA ♦ FE 


9B62 

A5 2E 

LDA $2E 


9B6A 

85 FF 

STA ♦FF 


9B66 

AO 00 

LOY 00 


9B68 

A9 01 

LDA 01 


9B6A 

9B6C 

85 OD 

STA 900 

90D = tipo variabile 

01=int.,00=stringa,FF=flo. 

9B6C 

Bl FE 

LDA (9FE),Y 

9B6E 

85 A6 

STA 9A6 

prima lettera variabile 

9B70 

30 02 

BP1I 99B7A 

se > 80 variab.intera 

9B72 

8A OD 

STY 90D 

9B7A 

CB 

INY 


9B75 

Bl FE 

LDA (9FE >,Y 

seconda lettera variabile 

9B77 

85 A5 

STA 9A5 


9B79 

30 OA 

BHI 99B80 

se > 80 var.intera o stringa 

9B7B 

A9 FF 

LDA FF 

9B7D 

85 OD 

STA 900 


9B7F 

A2 02 

LDX 02 


9B81 

B5 AA 

LDA 9AA,X 


9B83 

29 7F 

AND 7F 

stampa nome variabile 

9BB5 

20 02 FF 

JSR 9FF02 

9BB8 

CA 

DEX 


9B89 

DO F6 

BNE 99B81 


9B8B 

A5 OD 

LDA 90D 


9B8D 

30 06 

BPU 99B95 


9B8F 

18 

CLC 

stampa '2' o '9' 

9B90 

69 2A 

ADC 2A 

9B92 

20 D2 FF 

JSR 9FFD2 


9B95 

A9 30 

LDA 30 


9B97 

20 D2 FF 

JSR 9FFD2 

stampa '=’ 

9B9A 

EA 

NOP 

9B9B 

EA 

NOP 


9B9C 

A5 00 

LDA 900 


9B9E 

FO AA 

BEO 99BEA 

variabile stringa 

9BA0 

9BA2 

30 36 

BAI 99BD8 

var.floating point 

9BA2 

C8 

INY 

VARIABILE INTERA 

9BA3 

Bl FE 

LDA (9FE > , Y 


9BA5 

A8 

PHA 


9BA6 

CB 

INY 

carica HB e LB del numero 

9BA7 

Bl FE 

LDA (9FE),Y 

intero in A,Y 

9BA9 

AS 

TAY 


9BAA 

68 

PLA 


9BAB 

20 91 B3 

JSR 9B391 

converte da int. in float. 

98AE 

20 DO BD 

JSR 9BOOD 

conv. da float. in ASCII 

9BB1 

A9 00 

LDA 00 

9BB3 

AO 01 

LOY 01 


9 BBS 

20 1E AB 

JSR 9AB1E 

stampa i caratteri ASCII 

9BB8 

A9 OD 

LDA OD 

°PBA 

20 02 FF 

JSR f>F F02 

stampa un CR 

98 BD 

18 

CLC 

----- 

9BBE 

A5 FE 

LDA SFE 

calcola l’indirizzo della 

9BC0 

69 07 

ADC 07 

prossima variabile 

9BC2 

85 FE 

STA iFE 

9BC4 

A5 FF 

LDA 9FF 


9BC6 

69 00 

ADC 00 


9eC8 

85 FF 

STA $FF 


9BCA 

C5 30 

CAP 930 

controlla se ci sono altre 

9BCC 

FO 03 

BEO 99B01 

vari abili 

9BCE 

AC 66 9B 

JAP 99B66 

prossima variabile 

9801 

A5 FE 

LDA 9FE 


9BD3 

C5 2F 

CAP 92F 


9805 

90 F7 

BCC 99BCE 


9BD7 

60 

RTS 


98D8 

.3 

CLC 


9BD9 

CB 

INY 

VARIABILE FLOATING 

9 BOA 

98 

TYA 


9BDB 

65 FE 

ADC 9FE 


9B0D 

AA 

TAX 

carica il numero floating 

9B0E 

A5 FF 

LDA 9FF 

9BE0 

69 00 

ADC 00 



9BE2 

AB 



TAY 



9BE3 

8A 



TXA 



9BE4 

20 

A2 

BB 

JSR 

ÌBBA2 


9BE7 

4C 

AE 

9B 

JflP 

♦ 9BAE 


9B€A 

A9 

22 


LDA 

22 

VARIABILE STRINGA 

9BEC 

20 

D2 

FF 

JSR 

♦ FF02 

'stampa " 

9BEF 

C8 



INY 



9BF0 

Bl 

FE 


LDA 

(♦FE),Y 

'legge la lung.della stringa 

9BF2 

FO 

16 


BEO 

♦ 9C0A 

'stringa vuota 

9BF 4 

AA 



TAX 



9BF5 

C8 



INY 



9BF6 

Bl 

FE 


LDA 

(♦FE),Y 

legge indirizzo corpo strin. 

9BFB 

85 

69 


STA 

♦ 69 


9BFA 

C8 



INY 



9BFB 

Bl 

FE 


LDA 

(♦FE) r Y 


9BFD 

85 

6A 


STA 

♦ 6A 


9BFF 

AO 

00 


LDY 

00 


9C01 

Bl 

69 


LDA 

(♦69),Y 

stamp a la stringa 

9C03 

20 

D2 

FF 

JSR 

♦ FFD2 


9C06 

C8 



INY 



9C07 

CA 



DEX 



9C08 

DC 

F7 


BNE 

♦ 9C01 


9C0A 

A9 

22 


LDA 

22 

stampa " 

9C0C 

20 

D2 

FF 

JSR 

♦ FFD2 


9C0F 

4C 

B8 

9B 

JflP 

♦ 9BB8 

prossima variabile 

9C12 






ROUTINE FIND 

9C12 






sntx ! FIND,"stringa"/testo 

9C12 







9C12 

20 

73 

00 

JSR 

♦ 0073 


9C15 

C9 

02 


CflP 

2C 

controlla la sintassi 

9C17 

FO 

03 


BEO 

♦ 9C1C 


9C19 

4C 

08 

AF 

jnp 

♦ AF08 

'SINTAX ERROR 

9C1C 

AO 

00 


LDX 

00 


9C1E 

20 

73 

00 

JSR 

♦ 0073 


9C21 

FO 

F6 


BEQ 

♦ 9C19 


9C23 

A5 

7A 


LDA 

♦ 7A 


9C25 

C9 

05 


CflP 

05 


9C27 

DO 

FO 


BNE 

♦ 9C19 


9C29 

A9 

00 


LDA 

00 


9C2B 

85 

7A 


STA 

♦ 7A 


9C2D 

20 

7C 

A5 

JSR 

A57C 

’TOKENISATION ROUTINE 

9C30 

A5 

2B 


LDA 

♦ 2B 


9C32 

85 

F9 


STA 

♦F9 

ind.prima linea in ♦F9,FA 

9C34 

A5 

2C 


LDA 

♦ 2C 


9C36 

85 

FA 


STA 

♦ FA 


9C38 

A9 

FF 


LDA 

FF 


9C3A 

8D 

4F 

9A 

STA 

♦ 9A4F 


9C3D 

A2 

00 


LOX 

00 


9C3F 

AO 

01 


LDY 

01 


9C41 

Bl 

F9 


LDA 

(♦F9>,Y 

se HB link pross.linea =0 

9C43 

DO 

06 


BNE 

♦ 9C4B 

*' finito il prog. Basic 

9C45 

A9 

00 


LDA 

00 


9C47 

8D 

AF 

9A 

STA 

♦ 9A4F 


9C4A 

60 



RTS 



9C4B 

CB 



INY 



9C4C 

A5 

F9 


LDA 

♦ F9 


9C4E 

85 

5F 


STA 

♦ 5F 


9C50 

A5 

FA 


LDA 

♦ FA 

♦5F,60 = inizio linea 

9C52 

85 

60 


STA 

♦ 60 


9C54 

Bl 

F9 


LDA 

(♦F9),Y 


9C56 

85 

1A 


STA 

♦ 14 


9C5B 

C8 



INY 


♦14,15 = numero linea 

9C59 

Bl 

F9 


LDA 

(♦F9),Y 


9C5B 

85 

15 


STA 

♦ 15 


9C5D 

C8 



INY 



9C5E 






controlla se nella linea in 

9C5E 






esame c'è il testo richiesto 

9C5E 

BD 

05 

02 

LDA 

♦0205,X 

'caratt. dal buffer 

9C61 

FO 

17 


BEO 

♦ 9C7A 

'OK trovato! 

9C63 

C? 

22 


CP1P 

22 

'confronta con " 

9C65 

DO 

03 


BNE 

♦ 9C6A 

'non uguali 

9C67 

E8 



INX 


'salta le " 

9C68 

DO 

FA 


BNE 

♦ 9C5E 


9C6A 

Bl 

F9 


LDA 

(♦F9),Y 

'carattere dalla linea 

9C6C 

FO 

11 


BEO 

♦ 9C7F 

'fine linea 

9C6E 

DD 

05 

02 

CflP 

♦0205,X 

'confr. con buffer 

9C71 

DO 

03 


BNE 

♦ 9C76 

'caratteri diversi 

9C73 

C8 



INX 


'car.uguali :pross.c ar.buff. 

9C74 

DO 

E7 


BNE 

♦ 9C5D 

'prossimo car. linea 

9C76 

A2 

00 


LDX 

00 

'primo car. buffer 

9C78 

FO 

E3 


BEO 

♦ 9C5D 

'prossimo car. linea 

9C7A 

A9 

00 


LOA 

00 


9C7C 

20 

BD 

A6 

JSR 

♦ A6B0 

'1 1 sta la linea 

9C7F 

AO 

00 


LDY 

00 


9C81 

Bl 

F9 


LDA 

<F9>, Y ' 

carica in ♦ F 9,F A 

9C03 

AA 



TAX 


l'indirizzo della 

9C84 

C8 



INY 


prossima linea da 

9C85 

Bl 

F9 


LDA 

(♦F9>,Y 

da analizzare 

9C87 

85 

FA 


STA 

♦FA 


9C89 

8A 



TXA 



9C8A 

85 

F9 


STA 

♦ F9 


9C8C 

18 



CLC 



9C8D 

90 

AE 


BCC 

♦ 9C3D 

'nuova linea 

9C8F 






NUOVA ERROR ROUTINE 








9C8F 

8A 



’TXA 


'se X>=80 solo stampa READY 

9C90 

10 

09 


BPL 

♦ 9C9B 

'se X<80 stampa errore 

9C92 

AD 

AF 

9A 

LDA 

♦ 9A4F 


9C95 

FO 

01 


BEO 

♦ 9C98 


9C97 

60 



RTS 



9C98 

4C 

7A 

AA 

JflP 

♦ A474 

'stampa READY 

9C9B 

AA 



TAX 



9C9C 

A5 

7A 


LDA 

♦ 7A 


9C9E 

8D 

A2 

9A 

STA 

♦ 9A42 


9CA1 

A5 

7B 


LDA 

♦7B 

memorizza indirizzo errore 

9CA3 

80 

A3 

9A 

STA 

♦ 9A43 


9CA6 

A5 

39 


LDA 

♦ 39 


9CA8 

80 

AO 

9A 

STA 

♦ 9A40 


9CAB 

A5 

3A 


LDA 

♦ 3A 

memorizza numero linea err. 

9CAD 

8D 

41 

9A 

STA 

♦ 9A4 1 


9CB0 

8A 



TXA 



9CB1 

4C 

3A 

AA 

JflP 

♦ A43A 

ERROR ROUTINE N0RP1ALE 

9CB4 






NUOVA PRINT TOKENS ROUTINE 

9CB4 

AA 



TAX 



9CB5 

CE 

AE 

9A 

DEC 

♦9A4E 

'contatore punto errore 

9CB8 

FO 

04 


BEQ 

♦ 9CBE 

'raggiunto punto errore 


22 




























































Programmer’s tool 
per Commodore 


kit 

64 


Seguito listato l. 


9DB2 

AD 

47 

9A 

LDA 

♦ 9A47 

9DB5 

6D 

45 

9A 

ADC 

♦ 9A45 

9DB0 

8D 

45 

9A 

STA 

♦ 9A45 

9DBB 

B0 

BE 


BCS 

♦ 9D7B 

9DB0 

4C 

50 

9A 

JMP 

♦ 9A50 

9DC0 






9DC0 






9DC0 






9DC0 

A9 

00 


LDA 

00 

9DC2 

8D 

49 

9A 

STA 

♦ 9A4? 

9DC5 

20 

73 

00 

JSR 

♦ 0073 

9DC8 

C9 

46 


CMP 

46 

9DCA 

F0 

41 


BECi 

♦ 9E0D 

9DCC 

C9 

4 E 


CMP 

4E 

9DCE 

F0 

03 


BEO 

♦ 9DD3 

9DD0 

4C 

08 

AF 

JMP 

♦ AFOB 

9DD3 






90D3 

20 

73 

00 

JSR 

♦ 0073 

9DD6 

F0 

10 


BEO 

♦ 9DE8 

90D8 

C9 

2C 


CMP 

2C 

9DDA 

DO 

F 4 


BNE 

♦ 9DD0 

9DDC 

20 

73 

00 

JSR 

♦ 0073 

90DF 

C9 

53 


CMP 

53 

9DE1 

DO 

ED 


BNE 

♦ 9DD0 

9DE3 

09 

01 


LDA 

01 

90E5 

8D 

49 

9A 

STA 

♦ 9A49 

9DE8 

A0 

22 


LDY 

22 

9DEA 

A2 

06 


LDX 

06 

9DEC 

A9 

A0 


LDA 

AO 

9DEE 

99 

00 

04 

STA 

0400,Y 

9DF1 

AD 

86 

07 

LDA 

♦ 0286 

90F4 

99 

00 

D8 

STA 

♦D800,Y 

9DF7 

C8 



INY 


90F8 

CA 



DEX 


9DF9 

DO 

FI 


BNE 

♦ 9Df C 

9DFB 

9 8 



TYA 


9DFC 

18 



CLC 


9DF0 

69 

°2 


ADC 

90 

9DFF 

AR 



TAY 


9C00 

90 

E 8 


BCC 

♦ 9DEA 

9F02 

A9 

18 


LDA 

1B 

9E04 

8D 

03 

03 

STA 

*0308 

9E07 

A9 

9E 


LDA 

9E 

9E09 

8D 

09 

03 

STA 

♦ 0309 

9E0C 

60 



RTS 


9E0D 

A9 

E 4 


LDA 

E4 

9E0F 

80 

08 

03 

STA 

♦ 0308 

9E12 

A9 

A? 


LDA 

A7 

9E14 

8D 

09 

03 

STA 

♦ 0309 

9E1 7 

60 



RTS 


9E1B 






9E18 






9E18 

A5 

3A 


LDA 

♦ 3A 

9E1A 

C9 

FF 


CMP 

FF 

9E1C 

DO 

03 


BNE 

♦ 9E21 

9E1E 

4C 

E4 

A7 

JMP 

♦ A7E4 

9E21 

A5 

39 


LDA 

♦ 39 

9E23 

A4 

3A 


LDY 

♦ 3A 

9E25 

CD 

4A 

9A 

CMP 

♦ 9A4A 

9E28 

DO 

05 


BNE 

♦9E2F 

9E2A 

CC 

4B 

9A 

CF'Y 

♦ 9A4B 

9E2D 

F0 

EF 


BEO 

♦ 9E1E 

9E2F 

8D 

4A 

9A 

STA 

♦ 9A4A 

9E32 

8C 

4 B 

9A 

STY 

♦ 9A4B 

9E35 

AD 

49 

9A 

LDA 

♦ 9A49 

9E38 

FO 

07 


BEO 

♦ 9E41 

9E3A 

EA 



NOP 


9E3B 

A5 

C5 


LDA 

♦ C5 

9E30 

C9 

40 


CMP 

40 

9E3F 

F0 

F9 


BEO 

♦ 9E3A 

9E41 

A9 

4A 


LDA 

4A 

9E43 

85 

52 


STA 

♦ 52 

9E45 

A9 

04 


LDA 

04 

9E47 

85 

51 


STA 

♦51 

9E49 

85 

53 


STA 

♦ 53 

9E4B 

A9 

22 


LDA 

22 

9E4D 

85 

50 


STA 

♦50 

9E4F 

A0 

05 


LDY 

05 

9E51 

B1 

52 


LOA 

(♦52),Y 

9E53 

91 

50 


STA 

(♦50), Y 

9E55 

88 



DEY 


9E56 

10 

F9 


BPL 

♦ 9E51 

9E58 

18 



CLC 


9E59 

A5 

50 


LOA 

♦ 50 

9E5B 

69 

28 


ADC 

28 

9E5D 

85 

50 


STA 

♦ 50 

9E5F 

A5 

52 


LDA 

♦ 52 

9E61 

69 

28 


ADC 

28 

9E63 

85 

52 


STA 

♦ 52 

9E65 

90 

E8 


BCC 

♦9E4F 

9E67 

A9 

22 


LDA 

22 

9E69 

85 

50 


STA 

♦ 50 

9E6B 

A9 

08 


LDA 

D8 

9E6D 

85 

51 


STA 

♦ 51 

9E6F 

AD 

86 

02 

LDA 

♦0286 

9E72 

AO 

05 


LDY 

05 

9E74 

91 

50 


STA 

(♦50).Y 

9E76 

88 



DEY 


9E77 

10 

FB 


BPL 

♦ 9E74 

9E79 

18 



CLC 


9E7A 

A5 

50 


LDA 

♦ 50 


disabilita AUTO 
prosegue con la normale 
rout.di HANQLE 
ROUTINE TRACE 

sntx : TRQN(,STEP/S> TROFF 


'primo carattere dopo TRO 
’-"F" ? 

'se si va a TROFF 
'="N" ? 

'se si va a TRON 
'STNTAX ERROR 


TRON ROUTINE 
'no STEP 

controlla se segue ",S" 
altrimenti errore 


attiva funzione di STEP 


crea una finestra sullo 
schermo 

'colore corrente 


aggiorna vettore routine 
BASi.INK STATEMENT 

in *908 


TROFF disabilita il TRACE 
riportando il vettore della 
BASIINK STATEMENT ROUTINE al 
valore originale 1 IA 7 E4 
NUOVA BASI.INK STAT.ROUTINE 


se si tratta di una linea 
eseguita in modo diretto 
passa alla routine normale 
'BASLINK STAT.ROUTINE 


controlla se e cambiato il 
numero di linea, se è lo 
stesso salta alla routine 
BASLINK normale. 


'memorizza nuovo num. linea 
'funzione STEP attivata ? 
'NO •’ salta la routine seg. 


attende che venga premuto 
un tasto 


esegue lo scroll della 
finestra verso l'alto 


aggiorna il colore dei 
caratteri nella finestra 
al colore corrente (*0286) 


9E7C 

69 

2P 


ADC 28 

9E7E 

85 

50 


STA ♦SO 

9E80 

90 

ED 


BCC ♦9E6F 

9E82 

A5 

3A 


LDA *3A 

9E84 

A4 

39 


LDY *39 

9E86 

20 

91 1 

B3 

JSR «391 

9E89 

20 

DO 

BD 

JSR ♦BDDD 

9E8C 

A9 

A3 


LDA A3 

9E8E 

8D 

EA 

04 

STA ♦04EA 

9E91 

AO 

01 


LDY 01 

9E93 

B9 

00 

01 

LDA «100,Y 

9E96 

FO 

08 


BEO ♦9EA0 

9E98 

09 

80 


ORA 80 

9E9A 

99 

EA 

04 

STA ♦04EA,Y 

9E9D 

C8 



INY 

9E9E 

DO 

F3 


BNE $9E93 

9EA0 

A9 

AO 


LDA AO 

9EA2 

CO 

07 


CF'Y 07 

9EA4 

FO 

06 


BEO ♦9EAC 

9EA6 

99 

EA 

04 

STA *04EA 

9EA9 

C8 



INY 

9EAA 

DO 

F 6 


BNE *9EA2 

9EAC 

4C 

E4 

A7 

JMP ♦A7E4 

9EAF 





9EAF 





9EAF 





9EAF 

68 



PLA 

9EF 0 

68 



F'LA 

9EF1 

20 

OE 

9D 

JSR ♦9D0E 

9EF4 

A2 

04 


LDA 04 

9EF6 

BD 

43 

9A 

LDA ♦9A43,X 

9EF9 

95 

F 6 


STA *F6, X 

9EFB 

CA 



DEX 

9EFC 

DO 

FB 


BNF *9EF6 

9EFE 

A5 

FA 


LDA *FA 

9ECO 

DO 

OA 


BNE *9ECC 

9EC2 

A5 

F 9 


LDA «9 

9EC4 

C9 

OA 


CMP OA 

9EC6 

DO 

04 


BNE ♦9ECC 

9ECS 

A9 

FF 


LDA FF 

9ECA 

85 

FA 


STA ♦FA 

9ECC 

A5 

F7 


LDA «7 

9ECE 

85 

14 


STA *14 

9ED0 

A5 

F8 


LDA *F0 

9ED2 

85 

15 


STA *15 

9ED4 

20 

13 

A6 

JSR *A613 

9ED7 

A9 

E1 


LDA E1 

9ED9 

BD 

02 

03 

STA *0302 

9EDC 

A9 

9E 


LDA 9E 

9EDE 

8D 

03 

03 

STA *0303 

9EE1 

A9 

00 


LDA 00 

9EE3 

8D 

00 

02 

STA *0200 

9EE6 

AO 

01 


LDY 01 

9EE8 

B1 

5F 


LDA (*5F),Y 

9EEA 

FO 

19 


BEO *9F05 

9EEC 

C8 



INY 

9EED 

C8 



INY 

9EEE 

B1 

5F 


LDA (*5F >,Y 

9EF 0 

C5 

FA 


CMP *FA 

9EF2 

FO 

04 


BEO *9EF8 

9EF 4 

BO 

OF 


BCS *9F05 

9EF6 

90 

09 


BCC *9F01 

9EF8 

88 



DEY 

9EF9 

B1 

5F 


LDA (♦5F),Y 

9EFB 

C5 

F9 


CMP *F9 

9EFD 

FO 

02 


BEO *9F01 

9EFF 

BO 

04 


BCS *9F05 

9F01 

38 



SEC 

9F02 

20 

A9 

A4 

JSR *A4A9 

9F05 





9F05 

A9 

9A 


LDA 9A 

9F06 

8D 

03 

03 

STA *0303 

9F09 

A9 

50 


LDA 50 

9F0B 

BD 

02 

03 

STA *0302 

9F0F 

4C 

74 

A4 

JMP *A474 

9F12 





9F12 





9F12 





9F12 

20 

OE 

90 

JSR *9D0E 

9F15 

AD 

47 

9A 

LDA *9A47 

9F18 

FO 

05 


BEO *9F1F 

9F1A 

A2 

OE 


LDX OE 

9F1C 

6C 

00 

03 

JMP (*0300) 

9F1F 

AD 

46 

9A 

LDA *9A46 

9F22 

FO 

Fó 


BEO *9F1 A 

9F24 

A5 

2B 


LDA *2B 

9F26 

85 

F7 


STA *F7 

9F28 

A5 

2C 


LDA *2C 

9F2A 

85 

F 8 


STA *F8 

9F2C 

AO 

01 


LDY 01 

9F2E 

B1 

F7 


LDA (*F7),Y 

9F30 

DO 

01 


BNE *9F33 

9F32 

60 



RTS 

9F33 

85 

FA 


STA *FA 

9F35 

88 



DEY 

9F36 

PI 

F7 


LDA (F7),Y 

9F38 

85 

F9 


STA *F9 

9F3A 

C8 



INY 

9F3B 

C8 



INY 

9F3C 

AD 

44 

9A 

LDA *9A44 

9F3F 

91 

F7 


STA (*F7),Y 

9F41 

C8 



INY 

9F42 

AD 

45 

9A 

LDA *9A45 

9F45 

91 

F7 


STA (*F7),Y 

9F47 

A j 

F9 


LDA *F9 

9F49 

85 

F7 


STA *F7 

9F4B 

A5 

FA 


LDA *FA 

9F4D 

85 

F8 


STA *FB 

9F4F 

18 



CLC 

9F50 

AD 

44 

9A 

LDA *9A44 

9F53 

6D 

46 

9A 

ADC *9A46 

9F56 

8B 

44 

9A 

STA *9A44 

9F59 

AD 

45 

9A 

LDA *9A45 

9F5C 

69 

00 


ADC 00 

9F5E 

8D 

45 

9A 

STA *?A45 

9F61 

90 

C9 


BCC *9F2C 

9F63 

A2 

OF 


LDX OF 

9F65 

6C 

00 

03 

JMP (*0300) 


onverte il numero di linea 
da intero in ASCII 


lette il numero di linea 
n reverse direttamente 
nella mappa video 


torna alla rout.BASLINK 
ORIGINALE 
ROUTINE DELETE 
sntx : DEl.ETE ( a , ) ( b ) 


prende parametri dalla linea 
di comando 


copia i p arametri in 
*F7,F8 e *F9,F A 


se ’b' a dato per default 
allora è posto uguale a FFOO 


cerca l’indirizzo della pri¬ 
ma linea da cancellare. 


cambia il vettore di 
BASIC UARM START 


NUOVO BASIC UARM START 


controlla se e' finito il 
programma BASIC 


controlla se ha raggiunto 
l'ultima linea da cancellare 


cancella la linea puntata 
*5F,60 


ristabilisce il vecchio 
vettore UARM START 
♦ 9F50 
'READY 

ROUTINE RENUMBER 
sntx ;REN(a,)(b) 


l*ggs i 

due 

d arametri 

se incre 

mento 

>255 allora'. 

'ILLEGAL 

QUANTITY ERROR 

se incre 

mento 

=0 allora IDE 

leggi in 

i z i o 

aro gr anima BAS 


legge inizio prossima 

linea Basic 

se = 0 fine programma 


Y-punta tl numero di linea 
legge il nuovo numero e 
assegna alla linea puntata 


punta la prossima linea 


calcola i l prossimo 
numero di linea 


'prossima linea 
) ;OVERFLOU ERROR 
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dal I* gennaio 


edicola 


□ allego assegno di L 8.000 


Nome 


grafici oltre naturalmente, ai più divertenti 
programmi ricreativi. 

E Inoltra, la nuova linea Software TechnoClub, 
sviluppata In collaborazione con programmatori 
professionisti, con una gamma di programmi 
selezionati e convenienti per II tuo homo o 
personal computer. 

Acquista la guida in edicola o ordinala 
direttamente, compilando e spedendo il coupon 
sottoriportato, unitamente a L. 8.000. 

Potrai così prendere visione anche delle modalità 
per diventare Socio del TechnoClub e godere dei 
numerosi vantaggi che ne derivano tra i quali 
La ricezione gratuita di minimo 8 ulteriori numeri di 
questa guida. Sarai così costantemente aggiornato 
su tutte le novità editoriali più qualificate e sui 
package più interessanti ed innovativi per il tuo 
computer. 

Nessun Impegno di acquisto durante II periodo di 
adesione. Scelta libera e senza vincoli di minimi 
quantitativi di acquisto durante il periodo di 
adesione, potendo così ordinare ciò che si vuole, 
quando si vuole. 

Convenienza certa. I testi italiani sono scontati del 
10% circa rispetto al prezzo di copertina. 
Particolarmente vantaggiosi risultano i prezzi dei libri 
esteri e del software. 

La .tessera TechnoClub. Il documento personale 
che dà diritto a sconti speciali su diversi articoli 
acquistati presso negozi convenzionati. 

Oltre 5.000 Soci hanno già aderito al TechnoClub. 
Attendiamo anche te. 


Ordino il primo numero della 

Guida all’acquisto di libri e software e 

□ allego L. 8.000 (in contanti o francobolli) 


CEDOLA 
da compilare 
e spedire 
In busta chiusa 
Gruppo Editoriale 
Jackson srl 
Via Roselllnl, 12 
20124 Milano 


Italiani ed esteri 
di elettrotecnica 


prima 

Guida all’acquisto di libri 
principalmente di Informatica, 
ed elettronica, nonché del 
software applicativo. 

Oltre 350 testi italiani, 1000 stranieri in lingua 
originale e 900 package applicativi costituiscono 
l'attuale assortimento, 

La guida è il tuo consulente sicuro per orientarsi nel 
labirinto dell'editoria tecnica, lo strumento ed il 
servizio essenziale per chi ha compreso l'importanza 
della tecnologia nel mondo odierno. 

Libri di base e didattici per imparare e capire; 
applicativi per realizzare e coltivare il proprio hobby; 
pratici per risolvere i problemi dell'attività 
quotidiana; di elevata specializzazione per 
migliorare il proprio background professionale o 
culturale. 

Software per Apple, IBM, Texas, Sinclair, TRS, VIC per 
risolvere i problèmi più complessi o, semplicemente, 
per giocare. Un'ampia gamma 

di “applicativi" che 
comprende tra gli altri 
i più efficienti Data 
Base, i più completi 
programmi per 
l'elaborazione 
dei testi, i più 
sofisticati 
package 


Cognome 

















MILANO 22-26 MAGGIO 1984 >: 


PERCHÈ UNA NUOVA DATA? 


Per una ragione più che valida: VIDEO GAMES USA entra a 
far parte di BIT USA, la prestigiosa mostra di home e personal 
computer americani. E l'edizione '84 arricchita dalla presenza 
dei videogiochi, sarà più interessante che mai! 


NON DIMENTICATE DUNQUE di visitare la sezione Videogiochi 
di BIT USA 84 dal 22 al 26 maggio, presso il Centro 
Commerciale Americano 




CENTRO COMMERCIALE 


Via Gattamelata 5, 20149 Milano 

Tel. (02) 46.96.451 Telex 330208 USIMC-I 


La mostra è realizzata in collaborazione con le riviste 

del Gruppo Editoriale Jackson. 
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WWWWWWWWWNWWWNWW'AWWWWWW'WWWWWWWWWW'Wf-mCftLC .cr' 
ASM : cr '■ 

PERSONAL SOFT, «'ir' 

S' cr > 

GENERAL_RURP03E 
2 . 2 'cr : 

_<cr > 

APPLF.WRI TER cr. 

ASM cr 
APPLE cr> 

S«'cr > 

WORD_PROCE5SINO !cr . 

2.4<cr> 

_.__ ''cr'' 

APPI È’ WR7 TEF„1 T. < r 
ASM cr> 

APPLE' cr > 

N'.cr 

APPLE„WRITER .IN l r ALIANO cr 
2.4 cr 

___cr '» 

PRO WRITER 'cr > 

ASM cr 
IRET'cr' 

S<cr > 

DIV.IN 

NUMERO CAMPI = 26 


Figura 1. Ecco come si presentano i primi 300 byte di un file da studiare. 
L’identificazione dei campi è immediata e così pure la struttura di un singolo 
record. Il numero dei campi segnalato alla fine, in questo caso, non ha alcun 
valore. 


Un indispensabile 
strumento di lavoro per 
la manipolazione 
dei dati, scritto 
in BASIC Applesoft 
per Apple II 

di Sergio Orlando 

Introduzione 

Q uesto programma è rivolto 
a tutti coloro, professioni¬ 
sti e hobbisti, i quali per 
qualche motivo vogliono interveni¬ 
re sui dati registrati in File di tipo 
TEXT (T). 

Le applicazioni di questo pro¬ 
gramma sono molteplici. Esso si 
può rivelare utile in diverse circo¬ 
stanze: può essere utile al professio¬ 
nista che vuole intervenire su un ar¬ 
chivio di cui non conosce la struttu¬ 
ra: tramite il File Analyzer si può 
studiare tale struttura. Può essere 
anche usato per redigere una docu¬ 
mentazione sulla struttura del re¬ 
cord, per cambiarne il contenuto, 
per creare facilmente dei File esegui¬ 
bili con l’istruzione EXEC, come 
programma didattico per gli hobbi¬ 
sti i quali possono studiare le più 
comuni strutture di File. 

Per ciò che concerne l’assistenza il 
F.A. si manifesta poi in tutta la sua 
potenza in quanto permette inter¬ 
venti veloci su tutti gli archivi, fa¬ 
cendo risparmiare una enorme mole 
di tempo e di lavoro. 

Preliminari 

Mettiamoci nel caso di dover la¬ 
vorare su un File di cui conosciamo 
solo il nome. 


Per poter intervenire su un File 
prima di tutto bisogna conoscerne la 
struttura. Ora, poiché il DOS del¬ 
l’Apple non permette di esaminare 
un File di tipo TEXT, né di conosce¬ 
re la lunghezza di un record in un file 
random, né di sapere se un File è 
sequenziale o ad accesso casuale, era 
necessario fare un programma che 
permettesse di risalire, seppure non 
automaticamente, a queste informa¬ 
zioni. 

Un metodo per sapere se il File in 
esame sia random o sequenziale è 
quello di leggerlo dall’inizio, come 
verrà speciFicato nel seguito. Esami¬ 
nandone il contenuto, è facile vedere 
che tipo di informazioni vi sono me¬ 
morizzate, se c’è una certa periodici¬ 
tà nel tipo di informazioni (nel qual 
caso il File è random) e la eventuale 
lunghezza esatta del record. 

Per esempio nella Figura 1 si vedo¬ 
no i risultati ottenuti seguendo il 
metodo indicato: si tratta di un ar¬ 
chivio che contiene i programmi fa¬ 


centi parte della mia biblioteca per¬ 
sonale, con alcune informazioni sui 
programmi stessi. Avendo speciFica- 
to una lunghezza di 300 byte, è facile 
constatare che il File inizia con un 
simbolo di Fine campo «cr» seguito 
da 67 “nuli”; poi comincia una certa 
periodicità da cui si comprende che 
il File è random e che il record co¬ 
mincia col nome di un programma e 
termina con dei blanks seguiti dal 
simbolo di Fine campo (che in questo 
caso è anche la Fine del record). La 
lunghezza del record è di 68 caratte¬ 
ri. 

Un altro metodo è quello di far 
girare il programma che usa l’archi¬ 
vio in esame in MON C, I, O, il che 
permette di trarre le informazioni 
desiderate, cioè il tipo del File, la 
eventuale lunghezza del record, ecc. 


Uso del programma 

E veniamo al funzionamento del 
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Parametro 

Fase del programma 
(vedi figura 2) 

Lunghezza 
max. In byte 

lunghezza del record 

1 . 1 ; 1.2 

1000 

n° di caratteri da visualizzare 

2.1 

720 

n° di caratteri da modificare 

2.2 

360 

n° di caratteri da registrare su disco 

2.3 

720 


Tabella 1. Tabella dei valori massimi ammessi dal programma per alcuni 
parametri. 



Figura 2. Si vede la gerarchia dei menu e le possibili scelte che offre il 
programma nelle sue fasi. 


programma. I limiti di alcuni para¬ 
metri da esso imposti nelle varie fasi 
sono riepilogati nella tabella 1; tali 
limiti sono determinati solo dalla 
possibilità di visualizzazione e quin¬ 
di facilmente modificabili. 

Per capire la struttura generale del 
programma basta guardare lo sche¬ 
ma a blocchi di figura 2. 

In esso è evidenziata la gerarchia 
dei menu e le possibili scelte che via 
via si presentano all’utilizzatore. 

Lettura e scrittura N record 

Partendo dal primo riquadro si 
vede che le possibili scelte sono 2, 
oltre naturalmente quella di fine la¬ 
voro. La “LETTURA E SCRITTU¬ 
RA N REC.” permette di leggere un 
numero qualunque di record da un 
file e di visualizzarli uno per volta 
sul video oppure di stamparli tutti. 

E bene spendere due parole per le 
convenzioni dei simboli. 
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Il carattere nullo viene visualizza¬ 
to tramite un back slash (\); il car- 
riage return viene visualizzato come 
una R in reverse su video e con la 
scrittura «cr» in stampa; lo spazio 
bianco viene invece segnalato con 
un underline (—) per facilitarne il 
conteggio in caso di sequenza. Poi¬ 
ché, però, le varie stampanti posso¬ 
no rispondere in modo diverso allo 
stesso codice, all’inizio della stampa 
è posta una legenda che segnala co¬ 
me vengono stampati i tre codici 
suddetti (nuli, carriage return e 
blank), come è visibile nella figura 3. 

Il nome del file va specificato la 
prima volta che viene richiesto; le 
volte successive, per confermarlo, 
basta premere il tasto RETURN. La 
lunghezza e i record di inizio e di fine 
vanno sempre specificati. 

La fase 1 può essere utile per avere 
una visione d’insieme del file. 

Stampando alcuni record si ottie¬ 
ne una documentazione che specifi¬ 


ca il nome del file, la lunghezza del 
record, il numero di campi e ne mo¬ 
stra il contenuto. Un esempio è visi¬ 
bile nella figura 3. 

Lettura di un record 

La fase 2 - LETTURA DI UN 
RECORD - è quella che bisogna ri¬ 
chiamare qualora si vogliano fare 
delle modifiche al contenuto di un 
record o più in generale di un qua¬ 
lunque file di tipo TEXT. 

La massima lunghezza del record 
ammessa è di 1000 caratteri che do¬ 
vrebbe essere sufficiente in quasi 
tutti i casi; se non bastasse con qual¬ 
che artificio si può comunque acce¬ 
dere a record anche più lunghi. 

Poiché questo programma è stato 
concepito inizialmente per i soli file 
random, richiede sempre la lunghez¬ 
za del record o il numero del record 
che si vuole leggere. Ciò per il fatto 
che sull’Apple i file sequenziali sono 
usati molto poco a causa di alcuni 
bachi nel DOS che ne rendono pro¬ 
blematico l’utilizzo. Comunque 
questo fatto non è in alcun modo un 
impedimento, in quanto si riescono 
a leggere e modificare tranquilla¬ 
mente anche i file sequenziali. 

Supponiamo ad esempio di voler 
leggere un file sequenziale di 3000 
caratteri; per il modo in cui opera il 
DOS dell’Apple, specificando una 
lunghezza record di 500 caratteri si 
può accedere ai primi 500 byte del 
file leggendo il record 0, ai secondi 
500 leggendo il record 1, ai successi¬ 
vi con la lettura del record 2 e così 
via. 

In questo modo è anche possibile 
apportare le modifiche volute ai dati 
in modo del tutto trasparente al 
DOS che non fa nessuna distinzione 
tra file sequenziali e random. 

Ritornando al programma, sup¬ 
poniamo di aver letto un record: le 
operazioni che possiamo fare adesso 
sono di visualizzazione (solo su vi¬ 
deo), di modifica e di registrazione 
permanente su disco delle modifiche 
apportate al record. 
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Visualizzazione 


La visualizzazione non presenta 
problemi; bisogna specificare il byte 
di inizio (si suppone che il primo 
byte del record sia il N° 1 e non il N° 
0 come fa il DOS) e il byte di fine; la 
visualizzazione questa volta è se¬ 
quenziale, cioè non c’è un “a capo” 
ad ogni carriage return come succe¬ 
deva nella fase 1 vista prima. La 
simbologia, invece, è la stessa. 

In alto, sullo schermo, è visibile la 
numerazione dei byte; se, per esem¬ 
pio, noi vogliamo vedere il record da 
byte 24 a byte 48, la numerazione in 
alto partirà da 4 (unità del 24) e 
terminerà ad 8 e sarà visualizzata 
come segue: 

4567890123456789012345678 

In questo modo è abbastanza fa¬ 
cile selezionare la parte del record 
che interessa e fare i conti per le 
successive eventuali operazioni. 

Modifica 


- : ubi #_0 P’J 1 ' M ' 

- SPAZTO BIANCO 

I R- '• .1 


CHI re? f. r '_ 


' i ' ’ i ’ ■; ’.-v-j . 


l'PATCi! < 
ftSrt r r ; 


c" i*if - n i a- r i . 


L. I . 3. h. .-.r 
(C.M' C' • 

PROGRAMMA - c" 

N- r r 

AGSEML'-ER .INTCRAT 7 A'D rr 


NUMETRO C AMF T - 7 


IMTC -;r- 

A£M tri 


N- c r > 

11 r i . c. : 


La fase di modifica divide lo 
schermo in due metà: nella parte su¬ 
periore visualizza la porzione di re¬ 
cord da noi selezionata; in quella 
inferiore mostra le nostre modifi¬ 
che. È possibile confermare il carat¬ 
tere già esistente premendo RE¬ 
TURN o modificarlo premendo il 
tasto voluto. Per introdurre un «cr» 
- codice 13 - bisogna premere 
CTRL-R. 

È possibile modificare più volte il 
record finché non si raggiunge il ri¬ 
sultato desiderato. 

Registrazione su disco 


NLTtFT-.O CAMPI ^ 


CUNCTIOM rLC' T V 


N< rr . 

DRAP ITI .01 .r'JNZiON! 'cr ! 
4. 1 :cr '• 


Nunrp-o camp: 


v t : 

ASM rr. 


~ òfatt li a: re 


:-i: '.l.r r i; \ - 7 


A questo punto si può memoriz¬ 
zare il record modificato su disco, il 
che rende effettive le modifiche. 

Anche nella fase di registrazione 
su disco, la fase 3, bisogna specifica¬ 
re il byte di inizio e quello di fine. 

Dopo quest’ultima risposta, però, 
il computer partirà come un razzo e 
farà delle cose strane, modificando 


Figura 3. Ecco come si presenta la stampa finale di 5 record di un file. 

Si nota la legenda in alto, il nome del file, il numero dei record stampati, la 
lunghezza del record (impostata dall’utente), due righe di cifre che danno la 
posizione di colonna - 1 ed il contenuto dei 5 record. 

Il numero dei campi del record (7), questa volta è esalto. Si vede che la stampa 
può servire da documentazione. 
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probabilmente il byte di fine impo¬ 
stato dall’utente. 

Perché tutto questo? 

Per capirlo basta ricordare che 
quando si scrive una parola su disco, 
il DOS mette un segno di riconosci¬ 
mento per indicare la fine della pa¬ 
rola stessa: tale segno è un «cr» - 
codice 13 

Ora supponiamo di essere nella 
seguente situazione: 


...MARCO«cr»... 


e di voler cambiare MARCO con 
MARIO. È sufficiente cambiare la 
“C” con la “I”. Se l’operatore me¬ 
morizzasse su disco solo la “I”, il 
DOS metterebbe dopo tale carattere 
un «cr», per cui sul disco ci sarebbe 
questa situazione: 


...MARI «cr» «cr»... 


che non è quella voluta. 

Il programma allora provvede a 
cercare dopo la “I” il prossimo «cr» 
che nel caso in esame si trova dopo 
la “O” e scrive su disco, dopo avere 
chiesto l’ultimo OK all’utente, tutta 
la stringa di caratteri che compaio¬ 
no sul video, tranne l’ultimo «cr». 
Nell’esempio di prima il programma 
visualizzerebbe: 


IO «cr» 


e scriverebbe su disco la stringa 
“IO”, mentre il «cr» verrebbe ag¬ 
giunto automaticamente dal DOS 
ottenendo in totale la giusta stringa: 

...MARIO «cr»... 

Da notare che non si possono me¬ 
morizzare stringhe contenenti carat¬ 
teri nulli, il che non è in nessun caso 
una limitazione. 


Descrizione del programma 

Nella figura 4 è riportata una 
mappa del programma con i numeri 
di linea da cui cominciano le varie 


500 

Vai a inizializzazionl 
(60010) 

1010 

Routine di uso comune 

30010 

Lettura e visualizzazione 
n. Record 

32010 

Lettura di un record 

35010 

Visualizzazione 

36010 

Modifica 

37010 

Registrazione su disco 

38010 

Ritorno al main 

60010 

Inizializzazione variabili 

60510 

Main programma 

62010 

END programma 


Figura 4. Mappa del programma. 


sezioni evidenziate. La prima istru¬ 
zione porta il controllo alla linea 
60010 dove ci sono le inizializzazio- 
ni di alcune variabili il cui valore 
non viene più modificato durante 
l’esecuzione del programma e si me¬ 
morizza una routine utile quando 
l’ONERR GOTO è attivo. 

Il main program propone all’u¬ 
tente la scelta fra le tre alternative di: 

1. Visualizzare o stampare alcuni 

record. 

2. Leggere un solo record per poi 

apportarvi alcune modifiche. 

3. Terminare il programma. 

La prima scelta porta il controllo 
alla linea 30010, la seconda alla linea 
32010, la terza alla linea 62010. 

Prima di esaminare le tre fasi sue¬ 
sposte è meglio vedere in dettaglio le 
routine di uso comune che partono 
dalla linea 1010. Esse verranno usa¬ 
te in varie parti del programma e la 
loro descrizione iniziale faciliterà le 
cose in seguito. Si metterà inizial¬ 
mente il numero di linea da cui co¬ 
mincia la routine, considerando la 
prima istruzione eseguibile e non il 
REM che in genere precede la routi¬ 
ne stessa. Subito dopo viene specifi¬ 
cata la sua funzione ed eventual¬ 
mente vengono evidenziate le varia¬ 
bili di passaggio. 

1010 Disegna la cornice bianca pas¬ 
sante per i quattro angoli dello 
schermo. 


1150 Stampa o visualizza sullo 
schermo il simbolo di fine campo: 
«cr». 

1210 Chiede all’utente se vuole la 
stampa o se preferisce vedere i risul¬ 
tati sul video; se si vuole la stampa la 
variabile ST va a 1. 

1510 Questa è la routine più impor¬ 
tante del programma. Chiede il no¬ 
me del file, la lunghezza del record e 
quanti e quali record si vogliono leg¬ 
gere. 

Dopo avere controllato la validità 
dei parametri introdotti dall’utente, 
alla linea 1555 testa la variabile boo- 
leana di stampa ST: se è ad 1 va alla 
subroutine 8010 dove si provvede a 
stampare l’intestazione visibile nella 
figura 3. 

Alla linea 1560 comincia il ciclo di 
lettura dei record specificati; per 
quanto riguarda il significato delle 
variabili ci si può riferire alla tavola 
delle variabili di figura 5. 

Alla linea 1665 il test su SL verifi¬ 
ca se questa routine è stata chiamata 
dalla fase 1 - LETTURA E STAM¬ 
PA N REC. - (SL = 0), oppure dalla 
fase 2 - LETTURA DI UN RE¬ 
CORD - (SL = 1), nel qual caso la 
routine termina. 

In riga 1670 si chiama, se ST = 1, 
la routine che stampa il contenuto 
del record come si vede in figura 3. 
Se ST = 0 si esegue invece l’istruzio¬ 
ne 1680 che richiama la routine di 
visualizzazione su video dello stesso 
record. 

7010 Visualizzazione su video del 
record appena letto (vedi sub. 1510). 
8010 Stampa dell’intestazione (vedi 
sub. 1510). 

8210 Stampa del contenuto del re¬ 
cord corrente (vedi sub. 1510). 

9010 Questa è una routine molto 
delicata che verifica se ciò che l’u¬ 
tente vuole scrivere su disco, dopo 
avere apportato delle correzioni al 
contenuto del record, è lecito oppu¬ 
re produrrebbe degli errori dovuti al 
peculiare funzionamento del DOS. 
In particolare la stringa di caratteri 
che si vuole memorizzare su disco 
deve terminare con un «cr» e non 
deve contenere caratteri nulli - codi- 
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ce 0 Nel caso vi siano dei caratteri 
nulli la variabile ER va ad 1. 


20010 Questa è la routine chiamata 
nel caso che si determini un errore 
durante la fase di lettura del record 
dovuto al tentativo di leggere carat¬ 
teri nulli da disco. Tali caratteri ven¬ 
gono memorizzati nel vettore A$(*) 
come back slash - codice 92 -. 
30010 La fase 1.2 inizializza SL ad 1 
(vedi sub. 1510) e poi richiede all’u- 
tente di specificare il nome del file, la 
lunghezza del record ed il numero 
del record che si vuole leggere. Il 
formato degli input ed i controlli sui 
valori digitali dall’operatore sono 
gli stessi visti all’inizio della subrou¬ 
tine 1510, solo che qui manca l’ulti¬ 
ma domanda in quanto si legge un 
solo record. 

Per questo motivo N2 viene posta 
uguale a N1 (vedi la lista delle varia¬ 
bili per il loro significato) e la su¬ 
broutine di lettura del record viene 
chiamata a partire dalla linea 1560 
anziché dalla 1510. 

A questo punto, dopo aver letto il 
record, si presentano all’operatore 
le possibili scelte tramite il menu 2 
che parte da linea 33010. A seconda 
della risposta data, la linea 33110 
passa il controllo ad una delle se¬ 
guenti fasi: 

1. VISUALIZZAZIONE (linea 35010) 

2. MODIFICA (36010) 

3. REGISTRAZIONE SU DISCO 

(37010) 

4. RITORNO AL MAIN (38010) 

5. FINE LAVORO (62010) 

35010 La fase di visualizzazione 
chiede il byte di inizio (BI) e quello 
di fine (B2), dopo di che fa alcuni 
controlli per verificare la congruen¬ 
za dei dati. E da notare che questa 
fase viene utilizzata come routine 
anche dalle due fasi successive di 
modifica (SEL$ = 2) e di registrazio¬ 
ne su disco (SEL$ = 3), pertanto le 
linee 35026, 35038, 35040, 35165 
vengono eseguite solo nel caso si 
provenga da una di esse. 

Le linee da 35050 a 35090 provve¬ 
dono a visualizzare sullo schermo, 
in alto, una riga di cifre per facilitare 


«t • » • V, r „ 3 FTCL'P-> API-i MA I.FTTp dal rtLE 

1&2 I -.i *"BiSO S so BSB& 9013 OOt4 9130 ' m 

TU 70 75110 ,J P 36' 5 36 1 O. 761 CÒ 7 6 '• • 5 'IO 36 1 1 A 3 '■ 'RD 

Z7[oo a.;ki'30 

m* ■ '3.3, I CARA : n: r ic Dir-: IV,; I | f." i'A 7*71 CRi • NELLA FASE di modifica record 
36AB0 36090 7,6095 76 I OO 363 :'*S 76 ’ 1 J 

API* 3.3, L - •: V.ATTCRr DA £tCRT'>ÈPE NEL FILE 
7? ARO T71O0 7.7! U.) 

B1 -• B.R.I PUNTO Al. PYTF 
9i - 9170 • 7775-‘*r.D 

35060 3*1-170 7 A075 3 'v.-,a, , 

• 2 I • ■ I: ! r 0 ,’,l 9VT • •••-! ' 1 0 /, E LA ! : LI : 01 _ >1 A*(*' 

•r>v vi.■ • 3 • r .\2 9<-17 or* J 4 «?.-•? 0 -“r-70 907>'• ^11'' 9' IO 9120 T30 97.70 
9370 95 ' 0 37:-u35 75*075 75" 36 39038 35120 36078 3 7060 

K * 5.3, L - 40 Pi. ANI-5 

)j:o i oio 

n* 5,3,1.. - CUF** - 41 

1570 15 ?ri j ' :..'i60 "'p65 301 1 31 "0 *>3 10 8200 20070 20040 20050 
75 1 t *0 -5 ! 60 7705' i 7707* • *7 1 50 60» >1 0 

E.R 3.B.L - INO rCATARE DI ERRORE 
c,*, O'jZq 9430 550*10 37010 

HT - 5,R, l. TABULATORE ORIZZONTALE 

90 U 21 0 7320 9740 9510 Zi A* 5 * > 76A70 36075 7609 
•36095 76095 36095 361OO 36100 36100 36105 76*05 
36110 36700 36700 

I - S,R,L • CONTATORE DI CICLO (POR ... SEXf* 

1060 1.070 1070 J610 J 670 16.70 1630 ' A40 ; 6-5 ■ 7( 

7100 7110 *30/,O GOGO GL00 3110 8150 8715 8220 92 

20050 ~5*. >5 * 35*.*90 7513' 75130 7511" 17*70 37A6 1 '* 

37 120 

K - S.R.L - CONTATORE DI CI LO (FHR . . NCX‘ r 

7030 7040 7050 8070 809" Pipo c 130 PI 4" <T20 9220 9T0 > r -: 

9 375 978' » 9410 9470 9^7-.* 7506'*» 7 5 70 3300-• 

L R - G. R, I - Ì.UNGHF7Z A RECORD 

15"' 3 525 1530 1.6 1.0 7080 0070 8215 8250 9020 20040 7205<: 32055 
35076 :5035 57050 

NI - S,RsI - PUNTA AL PRIMO RECORD DA LEGGERE 
1030 ) =60 8 O .30 32060 3707" 

N2 - S,R, I - PUNTA ALI.’ULTIMO RECORD DA LEGGERE 
1540 15.6D 8030 72070 

NC - S.R,D - NUMERO DEI CAMPI DEL RECORD 
]. 6 r o 3 640 164 O 826O 

NF* - S,3,I - MEMORIZZAZIONE PERMANENTE DEL NOME DPI FIIF 1 OLD I lf T > 

1512 3 53 4 1516 1580 1590 8030 20030 20040 20050 370*35 32040 5204 5 
37050 37070 

NR -- S, R, L -- PUNTATORE AL RECORD CORRENTE 
1560 1590 1690 20050 37070 

PU - 5, R, L. - PUNTATORE AL CARATTERE CORRENTE DI A* ( * > 

36075 36078 36090 36095 36100 36105 ' 61 2 363 10 361 l 0 

SEL* - 3,8,1 - VARIABILE DI SELEZIONE DA TASTIERA 
7150 33100 2-3110 35026 35« >TO 75040 35265 35165 35170 7T 7" 3T30 
37040 60550 60360 

SL - S,B,L - E' UGUALE A 1 SE SI L E GGF UN SOLO RECORD 
1665 320 IO 60515 

ST - 3 „ P . L G’ USUAI E A 1 SE Gl VUOLE LA STAMPA 

1210 1 230 1555 1670 60515 

5V$ - 9,S,I - VARIABILE TEMPORANEA: SE SV* “ "S" -> ST - 1 

TFH - 5,8.1 VARIABILE TEMPORANEA: CONTIENE IL NOME DEL FILE 
15:0 1512 '514 1516 72030 370 7*5 32040 77045 

vr - S,K,L. - TABULATORE VERTICALE 

90' o 9210 92. vi c 4.;> 9 ’t-o 9400 9510 76050 7606*.* 76C 75 W*90 76' *95 
36100 36103 36 1 l > 362DO 36200 

END OR VAR. I IST 


76090 76090 
76 1 05 76 L ! A 76 1 •’> 


77* GZ'jQu 3 7 l'.*Ò 


‘ - T ’■,'!■ 'APE 


5IONE DT AT, ( # '• 
’5* 75"ò0 


Figura 5. Lista delle variabili. Per ogni variabile sono riportate tre lettere che 
indicano: per la prima, m indica matrice, v indica vettore, s indica scalare: per 
la seconda, r indica reale, i indica intero, b indica booleano, s indica stringa: 
per la terza, i indica ingresso, o indica uscita, l indica lavoro. 

Segue la descrizione del significato della variabile e tutti i numeri di linea del 
programma in cui tale variabile è usata. 
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l’identificazione della posizione 
esatta di un carattere nel record. 

Le linee da 35120 a 35150 provve¬ 
dono alla visualizzazione vera e pro¬ 
pria del record contenuto in A$(-*), 
dopo di che si ritorna al menu 2. 
36010 Dopo aver visualizzato il con¬ 
tenuto del record (GOSUB 35010), 
si passa alla vera e propria fase di 
modifica. La linea 36080 legge il ca¬ 
rattere digitato da tastiera e lo me¬ 
morizza nella variabile temporanea 
AB$, dopo di che cominciano una 
serie di controlli per verificare se il 
carattere battuto era un carattere 
speciale (RETURN, CTRL-R o 
BARRA). 

In linea 36110 c’è la memorizza¬ 


zione definitiva del carattere digita¬ 
to nel vettore A$(*-). 

37010 Nella fase di registrazione su 
disco si provvede alla visualizzazio¬ 
ne di ciò che andrà effettivamente 
scritto sul disco (GOSUB 35010) e si 
chiede l’ultima conferma all’utente 
(37020). In caso di risposta afferma¬ 
tiva dalla linea 37050 parte la routi¬ 
ne di scrittura che avviene byte a 
byte tramite la variabile AP$. La 
linea 37080 ritrasforma il carattere 
underline - codice 95 - in blank, ri¬ 
pristinando la situazione originale. 

Conclusioni 

Il presente programma è uno stru¬ 


mento molto potente, rivolto so¬ 
prattutto ai professionisti che devo¬ 
no vedersela frequentemente con fi¬ 
le dati, di cui non conoscono la 
struttura, per apportarvi delle modi¬ 
fiche o per fare ordinaria manuten¬ 
zione; è facile da usare, perchè sem¬ 
pre guidato da chiare istruzioni e 
presuppone solo limitate conoscen¬ 
ze di base sui file. 

Esso consente di studiare e mani¬ 
polare i file nel modo voluto e di 
effettuare tutte le operazioni neces¬ 
sarie (lettura dati, modifica, regi¬ 
strazione su disco) sia su file di tipo 
sequenziale che su file random. 


Listato 1. Il programma BASIC. 





1525 

IF LR > 1000 THEN VI AB 9: BC 

10 REM !INTEGER I,NR,K 


1530 

1520 

INPUT "DA RECORD N 

500 

GOTO.60010 



*' ; N 1. 

1000 

REM QUADRO 


i. 540 

INPUT "A RECORD N' 

1010 

INVERSE 



" ; N2 

1020 

HOME 


1550 

TEXT 

10 30 

PRINT BLÌ 


1 555 

IF ST THEN GOSUB 8010 

1040 

VTAB 22: PRINT BLÌ 


1560 

FQR NR w NI .TO N2 

1050 

VTAB 2 


1570 

ONERR GOTO 20000 

1060 

POR I = 2 TO 21: PRINT " 

" : 

1580 

PRI NT Dì; 11 OPEN " : NFÌ : " , L " ; LR 


NEX r 




1070 

POR I = 2 TO 21: UTAB 40 

: VT AB 

1590 

PRI NT Dì: ; "READ " s NFÌ ; " , R " ; NR 


I: PRINT " ": NEXT 




1080 

NORMAL 


1 600 

NC = 0 

1090 

POPE 33,34 


1610 

FOR I = 1 TO LR 

1 100 

POPE 32,5: VTAB 0 


1620 

GL I Aì(I) 

1110 

RETURN 


1 630 

IP AÌ(I) = CHRÌ (32) THEN 

1 150 

PRINT CHRÌ (60) + CHRÌ 

(9 


Aid) - CHRÌ (95): REM BLAN 


9) + CHRÌ (114) V CHRÌ 

(62 


P 


): RETURN : REM <CR> 


1 640 

IF Aid) = CHRÌ (13) (HEN 

1 200 

REM STAMPA O VIDEO 



NC ~ Ni : i 1 

1 210 

ST = 0 


1650 

NEXT I 

1220 

FRINÌ "STAMPANTE O VIDEO 

(S 

.1 655 

PRINT Dì 


/V) GEI SVÌ: PRINT 


1 660 

FRINÌ Di; "clqse: " 

12.30 

IT SVÌ = "S" THEN ST -- 1 


1662 

POPE 216,0 

1240 

TEXT 


1 665 

IF BL THEN RETURN 

1250 

RETURN 


16/0 

IP ST THEN GOSUB 8210: GOTO 

1500 

REM LETTURA RECORD 



1690 

1510 

INPUT "NOME DEL FILE 


1680 

GOSUB 7010 


" : T P i 


1 690 

NEXT NR 

1512 

I.F TP* » "" AND NFÌ = " " 

1 HEN 

1700 

RETURN 


VTAB 8: GOTO 1510 


7000 

REM VIDEO 

1514 

ir ir i « "" THEN VTAB O: 

: Hi AB 

7010 

HOME 


23: PRINT NFÌ: GOTO 1520 


7020 

FQR I == 1 TO 4 

1516 

NFÌ = IT T 


7030 

POR K = 0 TO 9 

1 520 

INPUT "LUNGHEZZA RECORD 


7040 

PRINT P; 


" ; LR 


7050 

NEX T K 










Seguito listato l. 

7060 

NE X T I 

7065 

PRINT DF 

7070 

POPE 34,2: VTAB 5 

7075 

POPE 35,20 

7080 

POR I = 1 TO LR 

7090 

IF AF(I) = CHRP (13) THEN 

INVERSE : PRINT CHRP (82): 

NORMAL : GOTO 7110 

7100 

PRINT AF ( I > ; 

7110 

NEXT I 

7120 

PRINT 

7150 

VTAB 22: INPUT "<CR> PER CO 

NT INIJARE " ; SELF 

7190 

. TEXT 

7200 

RETURN 

8000 

REM STAMPA INTESTAZIONE 

8010 

PRINT DF;"PR#I" 

8020 

PRINT CHRF (9);"80M" 

8022 

PRINT CHRF (60) + CHRF (9 

9) + CHRF (114) + CHRF (62 
> + " •= SIMBOLO DI FINE CAMP 

0" 

8024 

PRINT CHRF (95) + " « S 

PAZIO BIANCO" 

8026 

PRIMI CHRF (92) + " = C 

ARAT1 E RE NULLO" 

8028 

PRINT : PRIMI 

8030 

PRINT "FILE ";NFF; SPC( 10) 

;"DA RECORD ";N1; SPC( 3);"A 

RECORD " ; N2 ; SPC ( 10) ; "L.UNG 

HEZZA RECORD ";LR 

8040 

PRIMI 

8050 

PRINT SPC( 10); 

8060 

POR I = I. TO 7 

8070 

FOR K = 1 ro 10 

8080 

PRINT I ; 

8090 

NE X r K 

8 1 00 

NEXT I 

8 110 

EOR I = I ro 8 

8120 

FOR K = 0 TO 9 

8130 

FRINÌ K; 

81 40 

NEXT K 

8150 

NEXT I 

8160 

PRINT 

8170 

PRINT DF;"PR#0" 

8180 

RE T’URN 

8200 

REM STAMPA RECORD 

8210 

PRINT DF;"PR#1": PRINT CHRF 
(9 >;"80N" 

3215 

FOR I = 1 TO LR 

8220 

IF AF(I> = CHRF (13) THEN 

GOSUB 1150: GOTO 8240 

8230 

PRINT AF(I>; 

8240 

NEXT I 

8250 

IF AF(LR) = CHRF (36) THEN 

PRINT 

8260 

PRINT : PRINT "NUMERO CAMPI 
= " ; NC 

8270 

PRINT : PRINT 

8280 

PRINT DF;"PR#0" 

8290 

RETURN 

9000 

REM VERIFICA 


Seguilo listalo I. 


9005 REM UP 

9010 ER = 0:VT 


9 : UT = 10 


9012 

IF B2 = B1 

AND AF(B2> * 


(13) THEN B2 

y~i 

+ 

N 

CD 

II 

9014 

IF AF(B2> = 

CHRF (13) 


GQSIJB 9310: 

RETURN 

9020 

IF B2 = LR 

THEN 9110 

9030 

B2 = B2 + 1: 

9014 

GOSUB 9510 

9100 

REM DOWN 


9110 

B2 = B2 - 1 : 

GOSUB 9510 

9120 

IF B2 = Bl 
9210: RETURN 

THEN ER ~ 1 

9130 

IF AF (B2) = 

CHRF (13) 


GOSUB 9310: 

RETURN 

9140 

GOTO 9110 


9200 

REM NON SI 

PUÒ ' 

9210 

PRINT CHRF 

(7): VTAB 1 


GClSIJB 


PRINT CHRF (7): VTAB VT + 

3: UTAB UT + 6: PRINT "NON S 
I PUÒ'" 

FOR K = 1 TO 1000: NEXT K 

RETURN 

REM TROVATO 

PRINT CHRF (7) 

VTAB VT: HTAB HT: FLASH : PRIh 
B2; : NCIRMAL : PRINT " " 

VTAB VI + 3: HT AB HT + 6: F'RII' 
"ALL RIGHT" 

VTAB VT + 6: HTAB 10: INVERSE 
: PRINT "VERIFICA": NORMAL 
FOR K = 1 TO <1000 - (B2 - 
Bl>>: NEXT K 
FOR K = Bi TO B2 
IF A F(K> = CURE (92) THEN 
9400 
NEXT K 
RETURN 

PRINT CHEF (7); CHRF (7): VIE 


VT + 6: INVERSE : 
ENZ IONE" : : NORMAL 


PRINT "A l‘T 
: PRINT " 


9405 PRINT. : PRINT "ELIMINARE CA 
RATI ERI NULLI" 

9410 PRINT : PRINT "PRIMO 'NULI.' 

IN POSIZIONE ";K 
9420 FOR K « 1 TO 3000: NEXT K 
9430 ER = 1 : RETURN 
9500 REM CONTATORE 
9510 VTAB VT: HTAB HT: PRINT B2; 

: PRINT “ ": RETURN 
20000 REM TRATTAMENTO ERRORE 
20010 CALE 768 

20020 AF(£ > = CHRF (92): REM NU 
LL 

20030 PRINT DF;"CLOSE";NEF 
20040 PRINT DF;"OPEN"; NET; ",L";L 
R 

20050 PRI NT DF ; " READ" ; NFF ; " , R " -, N 
R; ",B"; I 

20060 GOTO 1650 

30000 REM LETTURA E VISUALIZZAZI 
ONE N RECORDS 
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Seguilo listalo I. 


Seguito listato / 


30010 

GOSUB 1010 


30020 

GOSUB 1210 


30030 

GOSUB 1010 


30040 

GOSUB 1510 


30050 

RETURN 


32000 

REM LETTURA 

UN RECORD 

32010 

SL <* 1 


32020 

GOSUB 1010 


32030 

INPUT "NOME 
" ; TF* 

DEL FILE 

32035 

IF TF* = "" 

AND NF* = 11 " THEN 


VTAB B: GOTO 

32030 

32040 

IF TF* = "" 

THEN VTAB 8: HTAB 

23: FRI NT NF*: 

: GOTO 32050 

32045 

NF* = TF* 



32050 INPUT "LUNGHEZZA RECORD 
" ; LR 

32055 IF LR > 1000 THEN VTAB 9: 
GOTO 32050 

32060 INPUT "RECORD NUMERO: 


; NI 


32070 

32080 

N2 = NI 
TEXT 



32090 

GOSUB 

1560 


33000 

REM MENU 2 


33010 

GOSUB 

1010 


33020 

PRINT 

RECORD" 

" 1 . . . 

•VISUALIZZAZIONE 

33030 

PRINT 

"2, . « 

MODIFICA RECORD 

33040 

PRIMI 

"3. . . 

.SCRITTURA RECOR 


D SU FILE" 

33050 PRINT "4...RITORNO AL MAIN 


33060 

PRINT "5. 

. . F INE 

LAVORO" 

331 00 

VTAB 18: 

1NPUT 

"SELEZIONA 

PER NUMERO 

E <CR> 

";SEL* 

33 1 05 
331 10 

TEXT 

ON VAL. ' 

(SEL*) 

GOTO 35010, 


36010,37010,38010,62010 
33130 GOTO 33010 
35000 REM VISUALIZZAZIONE 
35010 GOSUB 1010 
35020 INPUT "DA BYTE: ";B1 

35025 IF B1 < 1 THEN VTAB 0: GOTO 
35020 

35026 IF SEL* = "3" AND Bl = LR THEN 
VTAB 8: GOTO 35020 

3:5030 INPUT "A BY1E: " ; B2 

35035 IF Et2 > LR OR B2 < B1 THEN 
VTAB 9: GOTO 35030 

35036 IF < B 2. - Bl) - 720 THEN 
(EXT : ODIO 35010 

35030 IF GEL* = "2" AND (B2 - Bl 
) > 360* THEIM TEXT : GOTO 

35010 

35040 IF BEL* = "3" THEN GOSUB 

'9010: IF ER THEN TEXT : HOME 
: RETURN 

35045 (EXT : HOME 
35050 FOR I = 1 TO 4 
35060 FOR K = Bl TO Bl t 9 
35070 PRINT RIGHT* < STR* (K),1 
) ; 


35080 NEXT K 
35090 NEXT I 
35100 PRINT D* 

35110 POKE 34,2: VTAB 3 
35120 FOR 1 = Et 1 TO B2 
35130 IF A*(I) - CHR* (13) THEN 
INVERSE : PRINT CHR* (82) ; 

: NQRMAL : GOTO 35150 
35140 PRINT A4(1); 

35150 NEXT I 
35160 PRIMI 0« 

35165 IF SEL* = "2" OR SELF = "3 
" THEN RE l'URN 

351.70 VTAB 22: INPUT "<CR> PER C 
ON IINUARE “; GEL* 

35200 TEXT 

35210 BOTO 33010 

36000 REM MODIFICA RECORD 

36010 GOSUB 35010 

36020 VTAB 12 

36030 HT AB 10: INVERSE : PRINT " 

SEZIONE MODIFICA RECORD": NORMA! 

36040 PRINT " <CR> PER CONFERMAR 
E - CTRL/R -> RETURN" 

36050 POKE 34,13:VT = 0:HT = 1 
36060 VTAB 15 + VT 
36070 HTAB HT 

36075 PU = Bl + HT - 1 + 40 * VT 
36078 IF PU > B2 THEN TEXT : HOME 
: GOTO 33010 
36080 GET AB* 

36090 IF AB* = CHR* (13> AND A* 

(PU) = CHR* (13) THEN VTAB 
15 + VT: HTAB HT: INVERSE : PRINT 
"R": NORMAL :HT = HT + 1: GOTO 
36200 

36095 IF AB* = CHR* (13) THEN VTAB 
15 + VT: HTAB HT: PRINT A*(P 
U):HT = HI + 1: GOTO 36200 
36100 IF AB* = CHR* (18> THEN A 
*(PU) = CHR* (13): VTAB 15 + 

VT: HTAB HT: INVERSE : PRINT 
"R": NORMAL :HT"= HT + 1: GOTO 
36200 

36105 IF AB* = CHR* (32) THEN A 
*(PU> = CHR* (95): VTAB 15 + 

VT: HTAB HT: PRINT A*(PU):HT 
= HT + 1: GOTO 36200 
36110 A* <PU> = AB*: VTAB 15 + VT: 

HTAB HT: PRINT A*(PU):HT «= 

HT + 1 

36200 IF HT > 40 THEN HT = 1 : VT = 

VT + 1 

36210 GOTO 36060 

37000 REM SCRITTURA SU DISCO 

37010 GOSUB 35010: IF ER THEN 33 

010 

37020 VTAB 22: INPUT "TUTTO'OK ( 

S/N) ";SEL* 

37030 IF LEFT* (BEL*,!) = "N" THEN 
TEXT : HOME : GOTO 33010 
37040 IF LEFT* (SEL*,1> < > "S 

" THEN 37020 
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Seguito listato 1. 

37050 

F'R I NT D* ; "OPEN " ; NF* ; " , L " ; L 

R 

37060 

FOR 1 = B1 TO B2 -- 1 

37070 

PRINT D*;"URITE";NF*;",R"; 

NR;",B";I - 1 

37080 

IF A*(I) ~ CHR$ (95) THEN 

APT -- CHE* (32): GOTO 37110 

37100 

APT = A'jr ( I ) 

37110 

PRINT AF'P 

37120 

NEXT I 

37150 

PRINT D*;"GLOBE" 

37200 

TEXT : HOME : GOTO 33010 

38000 

REM RITORNO AL MA IN 

38010 

TEXT 

38020 

RETURN 

60000 

REM INIZIAL IZZAZIONI 

60010 

D$ = CHR* (4) 

60020 

POKE 768,104: PQKE 769,168 

POKE 770,104: POKE 771,166 

POKE 772,2.23 : POKE 773,154 

POKE 774,72: POKE 775,152: 


POKE 776,72: POKE 777,96 

60030 

DIM Af(1000) 


Seguilo listalo I. 


60040 BL$ == " 

I • 

60500 REM MA IN 

60510 GOSUB 1010 
60515 ST == 0 : SL. = 0 
60520 FRINT "1... LETTURA E STAME 
A N REC." 

60530 PRINT "2...LETTURA DI UN R 
ECORD" 

60540 PRINT "3...FINE LAVORO" 

60545 VTAB 4: HTAB 1B: FLASH ; PRIMI 
"BY S.ORLANDO": NORMAL 
60550 VTAB 18: INPUT "SELEZIONA 
PER NUMERO E <CR> ";5EL$ 

60555 TEXT 

60560 ON VAL (SEL.$) GOSUB 30010 
,32010,62010 
60570 GOTO 60510 
62000 REM FINE 

62010 POP : TEXT : HOME : PRINT 
"BYE...": END 



È vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 

a cura di Rita Bonelli 

ZX Spectrum è l'ultimo nato della famiglia Sinclair. È un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 
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IL LIBRO 

Questa guida, con chiarezza, semplicità 
espositiva e ricchezza di esemplificazioni, v 
risulta un vero e proprio strumento 
operativo per tutti coloro che vogliono 
avvicinarsi all’informatica in generale, e 
imparare la programmazione in BASIC, in 
particolare travalicando i tre calcolatori 
(ZX81, ZX80, ZX80 nuova ROM) a cui fa 
riferimento. Partendo da quello che è un 
computer, il lettore impara nei primi sei capitoli 
a programmare in BASIC, spingendosi, per chi 
lo vuole, oltre, sino alla programmazione in 
linguaggio macchina. L’ultimo capitolo riporta 
parecchi programmi e per ciascuno, vengono 
fornite, dove possibile, le diverse versioni. Tra 
l’altro si parlerà di file e di animazione delle figure. 

Per finire ben otto Appendici, essenziali ed 
utilissime, tra cui spiccano per interesse le due 
dedicate ai sistemi operativi dello ZX80, ZX80 nuova 
ROM e ZX81. 

SOMMARIO 

Introduzione - Il calcolatore - Installazione del calcolatore 
- La programmazione - Il linguaggio BASIC - Come 
operare - Utilizzo della memoria - Linguaggio macchina - 
Esempi di programmi — caratteri del sistema - variabili del 
sistema - scheda BASIC ZX80 - scheda BASIC ZX80 nuova 
ROM e ZX81 - errori segnalati dalla macchina - sistema 
operativo dello ZX80 - sistema operativo dello ZX81 e nuova ROM 
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Il programma 
“tascabile” 
per conoscere 
rapidamente il M.C.D. 
ed il m.c.m. 
di due numeri 
e per semplificare 
le frazioni 


di Francesco Carbone 

S pesso, quando si lavora 
con espressioni matemati¬ 
che, bisogna operare con 
frazioni anziché con numeri decima¬ 
li. In tal caso è utile avere sul proprio 
calcolatore programmabile una 
semplice routine che permetta di co¬ 
noscere in breve tempo il M.C.D. 
(Massimo Comune Divisore) ed il 
m.c.m. (minimo comune multiplo) 
di due numeri, e che provveda a ri¬ 
durre ai minimi termini una frazio¬ 
ne; inoltre la conoscenza del m.c.m. 
di due numeri interi si rivela utile 
nella somma di frazioni ed in molti 
altri calcoli matematici. 

Il programma che segue si basa 
sull’Algoritmo di Euclide, è utile 
pertanto fare qualche precisione di 
carattere puramente matematico: 
dati due numeri interi a e b non 
entrambi nulli, un intero d si defini¬ 
sce massimo comune divisore di a e 
b se: 1) db un divisore comune di a e 
di b; 2) se qualunque c che divide sia 
a che b, divide anche d. Ad esempio 
2 è M.C.D. di 4 e - 6 in quanto i 
divisori comuni di 4 e — 6 sono 1, — 
1, 2, — 2 e quindi per 2 vale la (1); 
inoltre 1, — 1, 2, — 2 sono tutti divi¬ 
sori di 2 e quindi per 2 vale anche la 
( 2 ). 


L’Algoritmo Euclideo è un proce¬ 
dimento di calcolo che permette, da¬ 
ti due numeri interi a e b, con b 
diverso da zero, di determinare il 
loro M.C.D.: si divide a per b, b per 
il resto trovato, il primo resto per il 
secondo resto, e così via fino ad otte¬ 
nere resto zero. 

L’ultimo resto diverso da zero è il 
nostro M.C.D.. 

Facciamo un esempio: 

Vogliamo conoscere il M.C.D. di 
22734 e 336. 


22734 = 336 x 67 + 222 
336 = 222 x 1 +114 
222 = 114 x 1 + 108 
114 = 108 x 1 +6 
108 = 6 x 18 


L’ultimo resto diverso da zero è 6, 
quindi il M.C.D. di 22734 e 336 è 6. 

Per quanto riguarda il minimo co¬ 
mune multiplo, la sua definizione è 
analoga a quella del M.C.D.: dati 
due numeri interi A e B un intero m 
si dice minimo comune multiplo di a 
e di b se: 1) m è un multiplo comune 
di a e di b; 2) ogni intero che è multi¬ 
plo comune di a e di b, risulta anche 
multiplo di m. 

È facile conoscere il m.c.m. di due 
numeri quando già si conosca il 
M.C.D.; infatti si dimostra che, re¬ 
stando invariato il segno, il prodot¬ 
to di due interi a e b è uguale al 
prodotto del M.C.D. per il m.c.m., 
di a e di b. 

Segue un breve programma che 
applica i principi. ■ 
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ESEMPIO D’USO: 

Vogliamo semplificare la frazione 6642/3510. 

Impostiamo 6642 e premiamo A, impostiamo 35 IO e premiamo B. Premendo Cavremo il 
M.C.D. che è 54, premendo D avremo il numeratore della frazione ( 123)e premendo E, il 
denominatore (65). Il m.c.m. si ottiene premendo A’. 


Figura 1. Elenco delle istruzioni e codici di tasto. 
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Figura 2. Il listato. 
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Seguito 
figura 2. 
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IL BASIC E LA GESTIONE DEI FILE 

Il libro si rivolge in modo particolare a chi già conosce il Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
(ile residenti su disco Dopo aver preso in esame, utilizzando 
numerosi esempi pratici, le particolarità del Microsoft, si pas¬ 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione dei file su disco, sia ad accesso diretto che sequenzia¬ 
le. Una terza parte del libro è infine interamente dedicata alla 
esposizione dei metodi pratici per l'uso dei file ad accesso 
diretto e dei data base. 
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emorie associative 
e ordinamento- 


Interessante 
illustrazione di due 
algoritmi traducibili in 
qualunque linguaggio 


di Maurizio Coccorese 


Qualche parola d’introduzione 

N el numero 5 di Personal 
Software si è visto come 
ricercare un elemento in 
tablle per mezzo di ricerche lineari, 
binarie ed hash. Lo scopo di questo 
articolo è quello di centrare l’atten¬ 
zione sul significato di memoria as¬ 
sociativa realizzata tramite quelle 
stesse tabelle e quindi di sviluppare 
due algoritmi per l’ordinamento ne¬ 
cessario in una tabella dicotomica. 
La mia intenzione non è quella di 
preparare due programmi in un lin¬ 
guaggio di programmazione specifi¬ 
co, bensì quella di fornire due algo¬ 
ritmi, interpretabili in qualsiasi lin¬ 
guaggio di programmazione, che 
diano al lettore una idea della solu¬ 
zione del problema dell’ordinamen¬ 
to. Infatti di algoritmi di ordina¬ 
mento ce ne sono molti, più o meno 
complicati, e tra i tanti ne sono stati 
scelti due, tra cui l’algoritmo di 
Shell, caratterizzato da aspetti ma¬ 
tematici interessanti. 

Inizialmente viene illustrato il si¬ 
gnificato di memoria associativa, 
quindi vengono richiamati i concetti 
della ricerca di tipo binario e infine 
vengono approfonditi i due algorit¬ 
mi di ordinamento, dei quali si for¬ 
niscono anche i diagrammi di flusso. 



CAMPO 1 

CAMPO 2 




1 

LUPO 

010101011 


LUPO 

999999 


2 

TOPO 

11111111 

Dovendo ricercare LUPO, 

3 

LUPO 

00000001 

quale dobbiamo considerare? 

• 

• 

• 





Figura 1. In questo caso il computer non saprebbe quale "entrata” considerare 
e quale valore del campo 2 prendere. 





300 PIPPO: personaggio di 


CHIAVE 

PUNTATORE 

. 301 Walt Disney, disegnato da ... 

i 

PIPPO 

300 

: 

2 

MINNIE 

310 

-► 310 MINNIE: altro personaggio... 

3 

PLUTO 

330 





\ : 

* 

• 

• 

330 PLUTO: cane di... 


Figura 2. Ad ogni chiave è associato il puntatore ad un altra tabella, che 
contiene le informazioni richieste. Ad esempio le informazioni della chiave 
MINNIE (linea 2) sono contenute nelle linee da 310 in poi della seconda 
tabella. 


Memoria associativa 

Genericamente si può pensare a 
una memoria di tipo associativo co¬ 
me a una struttura che è in grado di 
associare, la parola stessa lo dice, 
dei determinati valori alfanumerici 
a particolari insiemi di valori o dati; 
nulla vieta di pensare che questi par¬ 
ticolari insiemi siano anche vuoti, 
cioè non contengono alcun elemen¬ 
to o più precisamente alcun dato. 
Possiamo realizzare una memoria di 
tipo associativo molto semplice, cre¬ 
ando delle tabelle formate da ele¬ 
menti detti “entrate”, ognuna delle 
quali consistente in due campi: nel 
primo rappresentiamo un determi¬ 
nato valore alfanumerico detto 
CHIAVE che ci permette di accede¬ 


re univocamente ad un determinato 
valore ad esso associato contenuto 
nel secondo campo. È evidente che 
per ogni valore la chiave deve essere 
unica; infatti se la chiave è in grado 
di aprire più serrature con sequen¬ 
zialmente è in grado di ottenere più 
valori generando delle ambiguità 
che un computer non istruito oppor¬ 
tunamente non sarebbe in grado di 
risolvere (figura 1). 

Idealmente nel cervello umano 
accade la stessa cosa, con meccani¬ 
smi certo differenti, quando rag¬ 
gruppiamo, per poterle meglio ri¬ 
cordare, una serie d’informazioni 
sotto un acronimo. Per esempio in¬ 
vece di ricordare American Stan¬ 
dard Code of Interchange Informa¬ 
tion è molto più comodo ricordare il 
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relativo acronimo cioè ASCII, dove 
ASCII è la chiave di una zona recon¬ 
dita del cervello che contiene un’in¬ 
formazione che sarebbe più difficile 
da ricordare immediatamente. Perii 
cervello elettronico il vantaggio di 
una memoria associativa non è quel¬ 
lo di ricordare meglio ma è quello di 
velocizzare le ricerche per contenu¬ 
to, creando un’elasticità maggiore 
nell’organizzazione delle liste d’in¬ 
formazioni che possono essere 
smembrate ed esaminate separata- 
mente. Infatti nel secondo campo di 
ogni “entrata” si può porre, invece 
che l’informazione desiderata, un 
“puntatore” ad un’altra tabella che 
contiene effettivamente le informa¬ 
zioni; basterà cambiare questo pun¬ 
tatore per cambiare serie d’informa¬ 
zioni arbitrariamente grandi (figura 
2 ). 

Inoltre, dal momento che le chiavi 
associano univocamente determina¬ 
te informazioni, basterà in ogni 
istante far riferimento ad esse e non 
all’intera serie d’informazioni, evi¬ 
tando continue estrazioni di dati 
dalla memoria. Individuare un 
gruppo d’informazioni vorrà dire 
semplicemente individuare una 
chiave. E noto che gli attuali compu¬ 
ter hanno tempi di elaborazione ra¬ 
pidissimi, tuttavia la memoria rap¬ 
presenta il classico collo di bottiglia 
in grado di rallentare il flusso delle 
informazioni in un rapporto di 1: 10 
in situazioni non rare. Memorie di 
tipo associativo permettono di supe¬ 
rare i limiti di velocità imposti dalle 
memorie principali RAM che la tec¬ 
nologia moderna non è riuscita an¬ 
cora a superare. Infatti se moltipli¬ 
chiamo il tempo piuttosto basso ne¬ 
cessario per estrarre una parola dal¬ 
la memoria di un ipotetico compu¬ 
ter, confrontarla con un’altra già 
estratta e riporre il risultato nuova¬ 
mente in memoria, per le migliaia di 
parole che normalmente vengono 
trattate, si può immaginare quanto 
questo problema sia importante. 

Inoltre ci sono vantaggi per l’ope¬ 
ratore, al quale le chiavi possono 
suggerire mnemonicamente i conte- 



Figura 3. Questo diagramma di flusso rappresenta il primo algoritmo di 
ordinamento su una lista formata da 100 elementi al massimo, ognuno dei quali 
costituito da due campi. Vengono caricate prima le chiavi e poi la parte 
informativa. Sotto è rappresentata una procedura di scambio. 


nuti dei rispettivi campi informativi. 

Basti pensare alla funzione del ti¬ 
tolo di un argomento che ci suggeri¬ 
sce, a grandi linee, il possibile conte¬ 
nuto. Comunque, per quanto una 
memoria associativa può velocizza¬ 
re una ricerca, resta sempre il fatto 
che una lista può assumere propor¬ 
zioni tali da richiedere particolari 
metodi di ricerca che limitino i con¬ 
fronti al numero strettamente neces¬ 
sario. 

Ricerca di tipo binario o dicotomico 

Una ricerca dicotomica o sempli¬ 
cemente binaria, consiste nel divide¬ 
re una lista ordinata ad esempio in 
modo crescente in due parti uguali 


finché non si trova l’elemento ricer¬ 
cato. Effettivamente la ricerca av¬ 
viene così: si considera l’elemento di 
centro della lista e lo si definisce 
“chiave di mezzo”, dopo di che si 
confronta tale chiave con quella che 
si sta cercando; se sono uguali la 
ricerca si interrompe altrimenti si 
stabilisce quali delle due è maggiore; 
se la chiave di mezzo è minore si 
ripete il processo per quella parte 
della lista che è al di sotto di essa 
poiché, la chiave da ricercare sarà 
senza dubbio nella seconda metà 
della lista dato che essa è ordinata; 
se viceversa la chiave di mezzo è 
maggiore si scarta la metà inferiore 
della lista. Tale processo va avanti 
finché o non è più possibile dividere 
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in due la lista (e quindi l’elemento 
ricercato non viene trovato), oppure 
l’esito di un confronto è positivo. 

In una tabella di 2" elementi sa¬ 
ranno necessari al massimo n con¬ 
fronti. Se da una parte questo meto¬ 
do ci permette di ridurre notevol¬ 
mente il numero di confronti da fare 
rispetto un tipo di ricerca lineare, 
presuppone, dall’altra, che la lista 
sia ordinata. 


Primo algoritmo di ordinamento 

Vediamo un semplice metodo di 
ordinamento il cui diagramma di 
flusso è dato in figura 3. Cerchiamo 
di capire come funziona; come pri¬ 
ma operazione si considerino i primi 
due elementi della lista; supposto di 
avere stabilito un ordine crescente, 
si confrontano questi elementi per 
vedere se sono in ordine corretto; se 
non lo sono si scambiano cioè si 
permutano i loro posti. 

Quindi si ripete l’operazione tra il 
secondo e il terzo elemento della li¬ 
sta, tra il terzo e il quarto fino all’(n- 
l)-esimo e l’n-esimo. Il risultato di 
questo primo “giro” è quello di ave¬ 
re l’elemento più grande al fondo 
della lista. Se gli elementi della lista 
sono n si deve ripetere questo pro¬ 
cesso n-1 volte e si avrà come risulta¬ 
to finale una lista di n elementi ordi¬ 
nati progressivamente; tuttavia dal 
momento che il primo giro mette 
l’elemento più grande nel posto più 
basso, il secondo mette il secondo 
elemento più grande nel penultimo 
posto e così via il terzo e il quarto 
fino aH’n-esimo, possiamo dire che 
ogni giro ha un proprio massimo ad 
esso relativo che va ad assumere il 
posto più basso per quella tornata. 
Quindi per il secondo giro non c’è 
bisogno di fare il confronto fra l’ul¬ 
timo elemento e il penultimo poiché 
nell’ultimo posto c’è già il massimo 
del giro precedente (per il primo giro 
soltanto il massimo assoluto). La 
stessa situazione si presenta per ogni 
coppia di valori successivi, tanto 
nell’ultima tornata ((n-l)-esima) si 
effettuerà il confronto unicamente 



D = D/2 PARTE INTERA 


STAMPA IL VETTORE ORDINATO K end ") 
no 


no 



no 




Figura 4. Questo è l’algoritmo di Shell applicato ad una lista di 100 elementi al 
massimo. La prima parte stabilisce la distanza e la seconda il flusso di 
ordinamento. (D parte intera di 0,5 = 0). 
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PASCAL 


IMPARIAMO IL PASCAL 



Compattezza, concisione, chiarezza e notevoli potenzialità scientifiche, 
oltre a prestarsi ottimamente per calcoli gestionali e ad essere usato 
anche con i microcomputer, sono le caratteristiche che decre¬ 
tano il successo del PASCAL come linguaggio di pro¬ 
grammazione. Non vi era però finora un testo che 
insegnasse a tutti a programmare in PASCAL: o 
perchè i libri esistenti sono troppo concisi, o 
troppo semplici, oppure perchè richie¬ 
dono la conoscenza di altri lin¬ 
guaggi di programmazio¬ 
ne. o, non ultimo, per- 
in inglese. 
Queste sono pro¬ 
lacune 
il libro 
divul- 


_che 

con accade- 
fuhzionali il 
portandolo "a 
I capitoli sono il 
Iblle organici, in 
che ia loro consulta- 
mplice ed agevole, 
unto di quanto si ap- 
rà e posto all’inizio e non 
o al capitolo, perchè il let- 
possa subito avere un metro 
con cui verificare passo- 
il suo apprendimento. E poi, ci 
consigli, problemi, esercizi affin- 
libro sia “usato" e non letto, perchè 
e sapere come si usa un’istruzione 
to che conoscerne le differenze se¬ 
ne tra linguaggio e linguaggio. Con un 
graduale, partendo senza alcuna cono¬ 
di programmazione, dopo circa due setti- 
dovreste conoscere abbastanza bene il 
AL. Un buon risultato, no 91 
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tra il primo e il secondo elemento 
della lista. Come risultato si avrà 
una lista di elementi ordinata in mo¬ 
do crescente. 


Algoritmo di Schell 

Tutti gli studenti d’informatica 
prima o poi devono studiare l’algo¬ 
ritmo di Shell che risulta essere diffi¬ 
cile da comprendere perchè, per ca¬ 
pirlo bene bisogna farne il trace, co¬ 
sa che tutti gli studenti trovano anti¬ 
patica. Tuttavia questo algoritmo è 
interessante se non altro per i suoi 
aspetti di tipo matematico dal mo¬ 
mento che come velocità di esecu¬ 
zione non è inferiore al precedente. 
Concettualmente si tratta di muove¬ 
re gli elementi più grandi della lista 
verso il fondo e gli elementi più pic¬ 
coli verso l’alto, senza assegnare ad 
essi un posto stabile se non alla fine 


del processo. I confronti si fanno 
sempre fra coppie che questa volta 
non sono più consecutive ma carat¬ 
terizzate da una distanza sempre de¬ 
crescente. Il primo passo dell’algo- 
ritmo consiste nello stabilire la di¬ 
stanza iniziale che deve dividere le 
prime coppie. Si stabilisce la prima 
potenza di due al di sotto della di¬ 
mensione della lista: se per esempio 
gli elementi sono 1000 la prima po¬ 
tenza di due al di sotto di questo 
numero è 512; se gli elementi sono 
10 la prima potenza di due è 8. 

Decrementiamo ora questa po¬ 
tenza di 1 e il risultato si divide per 
due considerando la parte intera del 
quoziente. Questo valore sarà la pri¬ 
ma distanza che dividerà i primi 
confronti. Detta d questa distanza 
ed n la dimensione della lista i con¬ 
fronti si ripeteranno n-d volte. La 
seconda distanza sarà la metà della 


prima, la terza la metà della seconda 
e così via. Però per una stessa distan¬ 
za gli elementi vengono “pettinati” 
più volte come mostrato nel dia¬ 
gramma a blocchi della figura 4. Il 
processo infine non si ripete più 
quando la distanza è uguale a uno. Il 
risultato è una lista ordinata pro¬ 
gressivamente, quando la distanza 
diventa nulla. 

Visti questi algoritmi dobbiamo 
tener presente che essi non sono gli 
unici, ci sono anche altri più compli¬ 
cati e più veloci o più facili o meno 
veloci. In generale possiamo dire 
che non esistono algoritmi che si 
adattino universamente a tutte le ne¬ 
cessità (situazione sempe presente in 
informatica); sta a noi scegliere 
quello che più si adatta alle nostre 
esigenze. L’ultima parola, quindi ri¬ 
mane sempre all’uomo e alla sua in¬ 
ventiva. ■ 



Per non mandare in tilt il vostro 

Rodnay Zaks 

PROIBITO! 

O come aver cura di un computer 


'cervello 
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In quanti modi si può rovinare un computer, grande o 
personal che sia? L'autore di questo volume ne elenca 
molti: alcuni dovuti a sbadataggine, altri a troppa 
confidenza con il mezzo, altri ancora a scarsa 
conoscenza dei suoi meccanismi e della loro estrema 
vulnerabilità. C'è, anche, un’intera parte dedicata ai 
sabotaggi da calcolatore: furti, spionaggio 
industriale, distruzione delle informazioni... 

Insomma un libro curioso, ma prezioso, per 
vivere per anni, senza problemi, insieme al 
proprio amico 'cervello' elettronico. 

198 pagine. Lire 14.000 Codice 333 D 


Per ordinare il volume utilizzare 
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PROGRAMMI DI MATEMATICA E STATISTICA 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un’esposizione schemati¬ 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all’algoritmo, il li¬ 
stato (anch’esso ottenuto da calcolatore) in cui tra l'altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 
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Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l'apprendimento del lettore, insegna a conosce¬ 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l'utilizza¬ 
zione della recursività e il trattamento grafico. 
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rafici ad alta risoluzione 
con il TI99/4A- 


Un programma BASIC 
che vi permette di 
visualizzare qualunque 
funzione matematica 


di Sergio Borsoni 

E proprio vero che l’erba del 
vicino è sempre più verde! 
Penso al disagio che prova 
qualcuno nel constatare che il pro¬ 
prio computer non è in grado di of¬ 
frire alcune prestazioni desiderate. 
So di qualcuno che pensava di poter 
ottenere con un TI-99 grafici tridi¬ 
mensionali sul tipo di quelli rivolti 
alla progettazione industriale. Sca¬ 
gli la prima pietra chi non ha sperato 
di poter ottenere almeno il grafico 
ad alta risoluzione di una funzione 
matematica. La difficoltà consiste 
nel fatto che in TI BASIC non è 
possibile indirizzare indipendente¬ 
mente i punti video (pixel). Tuttavia 
si può, grazie al nuovo video proces¬ 
sor TMS9918A che il TI99/4A pos¬ 
siede al posto del TMS9918 del pre¬ 
cedente modello, definire un carat¬ 
tere punto per punto e successiva¬ 
mente stamparlo nella posizione op¬ 
portuna. 

Con l’home computer, un pro¬ 
gramma BASIC che abbia la pretesa 
di costruire un grafico ad alta risolu¬ 
zione deve innanzitutto “scandire” 
il video da sinistra a destra pixel per 
pixel e calcolare, in corrispondenza 
delle 256 colonne, il valore della fun¬ 
zione che si vuole rappresentare. 

Per distinguere le 24 righe e le 32 
colonne disponibili nel modo grafi¬ 
co dalle 192 righe e 256 colonne di¬ 
sponibili nel modo bit-mat, potrem¬ 
mo convenire di chiamare queste ul¬ 
time pix-righe e pix-colonne. 



Al termine della prima operazio¬ 
ne il computer avrà memorizzato, 
per ogni pix-colonna, il numero di 
pix-riga corrispondente al valore 
della funzione. Dovrà poi colmare 
tutte le lacune eventualmente esi¬ 
stenti tra ogni punto ed il successivo, 
mettendo in ON tutti i pixel tra essi 
compresi. 

Ogniqualvolta si verifica il salto 
di riga o di colonna passerà quindi a 
definire la stringa esadecimale atta a 
specificare il carattere particolare 
che rappresenta un piccolo tratto 
della curva considerata e a stampar¬ 
lo nella posizione opportuna con l’i¬ 
struzione CALL HCHAR. 

Questo per quanto riguarda i con¬ 
cetti di base. 

Il programma che presento nel li¬ 
stato 1 ovviamente è strutturato in 
conformità a quanto ho premesso e 
in più possiede delle prerogative che 
saranno sicuramente molto apprez¬ 
zate dai lettori. Per citare le più im¬ 
portanti, una consiste nel dimensio¬ 
namento automatico del grafico, 
un’altra nell’uso di una routine per 
la “somma” dei caratteri in modo 
che la curva non cancelli parzial¬ 
mente gli assi di riferimento quando 
li interseca o anche quando passa in 
prossimità di essi. 

Quest’ultima soluzione semplice 
ed originale è il naturale comple¬ 


mento di un programma rivolto alla 
grafica ad alta risoluzione e merita 
una breve descrizione. 

Sommiamo i caratteri 


Se si stampa un carattere sul video 
esso sostituisce ogni altro simbolo 
eventualmente presente nella stessa 
posizione; alla regola non sfuggono 
nemmeno i caratteri speciali. 

Se un tratto di curva passa in 
prossimità di un asse cartesiano o 
addirittura lo interseca, i caratteri 
che lo rappresentano andranno a so¬ 
stituire quelli che rappresentavano 
l’asse creando dei vuoti a dir poco 
antiestetici. La “somma” dei carat¬ 
teri consiste nel definire, quando è 
necessario, nuovi caratteri che por¬ 
tano in ON tutti i pixel del carattere 
che rappresenta un tratto di curva e 
di quello che invece rappresenta una 
parte dell’asse di riferimento. 

Per far questo le stringhe esadeci- 
mali che definiscono i caratteri ven¬ 
gono decodificati ed i loro simboli 
vengono sommati ad uno ad uno in 
base ad una tabella di composizione 
memorizzata nel programma (istru¬ 
zioni DATA delle linee 300-440). 

Ogni simbolo esadecimale con¬ 
trolla un blocco di 4 pixel; F si riferi¬ 
sce ad un blocco con tutti e quattro i 
pixel in posizione ON. È evidente 



c + 
6 = 

E 


Figura 1. È possibile sommare due 
caratteri sommando uno ad uno gli 
elementi delle stringhe esadecimali 
che li definiscono in base ad una ta¬ 
bella di composizione. 
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Figura 2. A titolo dimostrativo nel programma è memorizzata la funzione y = 
x 3 — 3x. È qui riprodotta l'immagine elaborata dal computer. 


che F sommato a qualsiasi altro sim¬ 
bolo esadecimale dà ancora F; per la 
costanza dei risultati questo elemen¬ 
to non è stato inserito nella tabella. 

Consideriamo ad esempio la som¬ 
ma C + 6, il risultato è E; infatti C è 
un blocco con il primo ed il secondo 
pixel ON ed il terzo ed il quarto 
OFF, 6 è un blocco con il secondo ed 
il terzo pixel ON; la loro somma è un 
blocco con il primo, il secondo ed il 
terzo pixel ON ed il quarto OFF, 
esso corrisponde al simbolo esadeci¬ 
male E. 

La figura 1 illustra questo concet¬ 
to di somma. 


Utilizziamo il programma 

Prima di esaminare dettagliata- 
mente il listato vediamo come si uti¬ 
lizza il programma. Un messaggio 
ricorda che la funzione della quale si 
vuole ottenere il grafico va definita 
alla riga 850. Chi non l’avesse fatto 
prima del RUN deve fermare il pro¬ 
gramma con il tasto FCTN(4), ri¬ 
chiamare la linea 850, dove troverà 
già una funzione definita, sostituirla 
con la propria e lanciare nuovamen¬ 
te il programma. Proseguendo, bi¬ 
sogna specificare rintervallo nel 
quale si studia la funzione, XI è l’e¬ 
stremo inferiore e X2 è l’estremo 
superiore. 
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Il grafico è dimensionato automa¬ 
ticamente nel senso che sia la posi¬ 
zione degli assi sia l’unità di misura 
vengono calcolate per ottenere la 
migliore rappresentazione, in modo 
da utilizzare tutti i 192 pixel sull’asse 
verticale evitando che una parte del¬ 
la curva debba cadere fuori dallo 
schermo. 

L’unica attenzione da parte del¬ 
l’utente deve essere volta ad esclude¬ 
re dall’intervallo valori per i quali 
non può essere calcolata la funzio¬ 
ne. 

Ad esempio la funzione Y = SQR 
(1 - X x X) è definita solo nell’inter¬ 
vallo — 1 + 1; per valori diversi il 
radicando diventa negativo, appare 
il messaggio BAD ARGUMENT ed 
il programma si blocca. Se la funzio¬ 
ne è Y = 36/X, l’intervallo non può 
comprendere il valore 0 perchè non 
esiste il valore della funzione in quel 
punto; ad esempio, si potrà ottenere 
il grafico nell’intervallo +1+36. In 
questo caso l’asse delle Y non appa¬ 
re sullo schermo ed anche il grafico 
appare tutto spostato sulla sinistra. 
Prevedendo tali situazioni, il pro¬ 
gramma è stato dotato di una routi¬ 
ne che consente il cambiamento del¬ 
l’origine degli assi cartesiani, con¬ 
trollato dai quattro tasti muniti di 
frecce. 

Riferendoci ancora alla funzione 
Y = 36/X, nell’intervallo + 1+36, 


premendo un tasto al termine del 
dimensionamento appare il solo as¬ 
se orizzontale nell’ultima riga in 
basso, l’asse delle Y è virtualmente 
spostato a sinistra fuori dallo scher¬ 
mo. 

Premendo due o tre volte il tasto 
(D) con la freccia rivolta a destra è 
possibile ottenere la stampa anche 
delj’asse Y. 

E opportuno non abusare di que¬ 
sta funzione e spostare gli assi solo 
del minimo necessario perchè così si 
sposta anche tutta la stampa del gra¬ 
fico ed una parte di questo potrà 
non apparire sul video. 

La figura 2 mostra il grafico della 
funzione Y = X 3—3 x X, attual¬ 
mente presente nel programma, nel¬ 
l’intervallo — 2 + 2, senza traslazio¬ 
ne degli assi. 

Il computer impiega poco più di 
due minuti per il dimensionamento 
automatico e circa quattro minuti 
per la stampa del grafico con l’utiliz¬ 
zazione di 74 caratteri definiti da 
programma. 


Un tuffo nel listato 

Alla riga 230 vengono dimensio¬ 
nate le matrici; S$ contiene la tabella 
di composizione per la somma dei 
caratteri, P è il numero di pix- 
colonna dei punti del diagramma 
calcolati per valori discreti, ESA$ 
memorizza gli elementi per compor¬ 
re la stringa esadecimale che defini¬ 
sce i caratteri grafici, infine E$ con¬ 
tiene in sequenza i simboli esadeci- 
mali. 

Delle istruzioni DATA si è già 
parlato in precedenza, esse conten¬ 
gono la tabella di composizione per 
la somma dei caratteri. 

Alla linea 680 e seguente i dati in 
input: XI ed X2 sono gli estremi 
dell’intervallo nel quale viene stu¬ 
diata la funzione. Alla riga 850 c’è la 
funzione della quale si vuole ottene¬ 
re il grafico. 

Le istruzioni 920-1070 ricavano il 
valore unitario corrispondente ad 
un pixel; esso è posto inizialmente 













uguale alla duecentoquarantesima 
parte dell’intervallo X2-X1, se per 
tale valore il massimo relativo 
(MAX) o il minimo relativo (MIN) 
cadono fuori dallo schermo, allora il 
valore unitario (U) è posto uguale 
alla centosettantaseiesima parte del- 
Pintervallo MAX-MIN. In tal modo 
tutta la funzione, da Y = f (XI) a Y 
= f (X2), viene rappresentata sullo 
schermo. 


RIGA 0 e COLO 0 (righe 1110- 
1120) sono le coordinate dell’origine 
mentre XOe YOsono le stesse espres¬ 
se in numero di pix-colonna e pix- 
riga. 

Il ciclo FOR NEXT (righe 1160- 
1280) carica i valori della matrice 
unidimensionale P (vedi figura 3). 

INIZIO (1250) e FINE (1290) in¬ 
dicano proprio l’inizio e la fine della 
stampa, in numero di pix-colonna. 

Alla riga 1340 viene mandato l’ul¬ 
timo messaggio, in seguito saranno 
ridefiniti tutti i caratteri ASCII che 
non saranno più disponibili per il 
testo. 

Segue la stampa degli assi carte¬ 
siani, TRSX0 e TRSY0 controllano 
la traslazione degli assi, il loro valo¬ 
re è determinato nel sottoprogram¬ 
ma 2920. 

Con il ciclo FOR NEXT 1820 ini¬ 
zia la stampa del grafico. 

Le principali variabili utilizzate 
sono PI, numero di pix-riga del pri¬ 
mo punto, RIGA 1 e COLO 1, nu¬ 
meri di riga e colonna, NRC, nume¬ 
ro di pix-riga del pixel all’interno del 
carattere, NCC, numero di pix- 
colonna del punto all’interno del ca¬ 
rattere (un carattere è formato da 8 
pix-righe e 8 pix-colonne), NB1, nu¬ 
mero del blocco nel quale si trova il 
pixel (un carattere è formato da 16 
blocchi di 4 pixel ciascuno), ESA- 
DEC1 è il corrispondente valore de¬ 
cimale del simbolo esadecimale al 
quale si risale con la funzione E$ 
(ESADEC1). Al punto seguente, 
P2, sono associate le stesse variabili 
con indice 2. 

Al termine di ogni ciclo il vecchio 
punto conseguente diventa il nuovo 
antecedente ed un nuovo punto di- 



Figura 3. Nella fase di dimensionamento si calcola la curva per punti (a). 
Successivamente vengono colmati i vuoti tra punto e punto e definiti i caratteri 
per la stampa. La mappa-video (b) mostra, ingrandito, un breve tratto della 
curva in esame. 



Figura 4. Dimensionamento automatico e traslazione degli assi consentono 
sempre la migliore rappresentazione grafica. 

La funzione è Y = SIN(X). 

venta il nuovo conseguente (istru¬ 
zioni 2270-2300). 

Se tra due punti PI e P2 la diffe¬ 
renza tra i numeri di pix-riga è mag¬ 
giore di 1 il ciclo FOR NEXT 2000- 
2090 si incarica di stampare punti 
sulla stessa pix-colonna di PI fino a 
colmare il vuoto esistente tra i due 
punti (la differenza tra i numeri di 
pix-colonna, invece, è sempre ugua¬ 
le a 1). 

Anche durante questo ciclo se 
cambia il numero di riga o di colon¬ 
na il carattere deve essere stampato. 

Quando PI e P2 si trovano sulla 
stessa pix-riga il programma con¬ 


trolla se si trovano sullo stesso bloc¬ 
co tra i 16 che formano un carattere 
perchè se ciò si verifica va calcolato 
il nuovo valore esadecimale da asso¬ 
ciare al blocco (linea 2240). 

Nell’ultima parte del listato le 
REM rendono esplicito il contenuto 
delle quattro routine utilizzate dal 
programma. 

La funzione CALL GCHAR (li¬ 
nea 2500) indaga se lo spazio desti¬ 
nato alla stampa di un carattere è già 
occupato, nel qual caso si procede 
alla somma dei caratteri. 

La stampa di un carattere è sem¬ 
pre seguita dall’azzeramento di 


































































































ESA$ che contiene gli elementi della 
stringa esadecimale che lo hanno de¬ 
finito. 


La memoria richiesta è di 7.1 
Kbyte. 


Ultimi consigli 

Qualche breve suggerimento per¬ 
metterà di utilizzare al meglio il pro¬ 
gramma e di acquisire la pratica ne¬ 
cessaria. 

1) Lasciate la funzione attualmen¬ 
te scritta nel programma. Date il 
RUN. Indicate l’intervallo X 1 = - 2 
e X 2 = 2. 

Apparirà la scritta DIMENSIO¬ 
NAMENTO RUNNING. Dopo po¬ 
co più di due minuti appaiono alcu¬ 
ni messaggi. Premendo un tasto 
qualsiasi si ottiene la stampa degli 
assi cartesiani con l’origine al centro 
del teleschermo. Premendo il tasto 
SPACE o qualsiasi altro tasto che 
non sia uno di quelli con le frecce, 
inizierà la stampa del grafico (vedi 
figura 2). 

2) Modificare la funzione alla riga 
850 del programma con la seguente 
Y = 18/X. Date il RUN. Poiché per 
X = 0 non esiste il valore della fun¬ 
zione, specificate il seguente inter¬ 
vallo: X 1 = 1 e X 2 = 18. Non è 
opportuno attribuire a X 1 valori 
prossimi allo zero perchè per X ten¬ 
dente a zero il valore della funzione 
sale rapidamente e, per rappresenta¬ 
re tutto il tratto di curva, viene note¬ 
volmente ridotta, in proporzione, la 
rappresentazione dell’intervallo di 
definizione. 

Dopo l’ultimo messaggio, pre¬ 
mendo un tasto non appare nulla 
sullo schermo: l’origine degli assi ca¬ 
de al di fuori. Si potrebbe ottenere 
ugualmente il grafico della funzio¬ 
ne: con la stampa degli assi esso è 
tuttavia più completo. 

Premete allora il tasto E (t), appa¬ 
rirà l’asse orizzontale, poi tre volte il 
tasto D (—) e apparirà anche l’asse 
verticale. Premete un altro tasto 
qualsiasi e verrà stampato il grafico. 

3) Inserite la funzione Y = 3 x X + 


Listato 1. Programma per la stampa di grafici in alta risoluzione. 


100 REM PERSONAL SOFTWARE 
110 REM **♦ * * **** * ***** -»•*** 

120 REM * * 

130 REM * GRAFICI AD ALTA * 

140 REM * * 

150 REM * RISOLUZIONE * 

160 REM * * 

170 REM ******************* 

180 REM di: SerqicD Bordarti 
.190 REM Tr i (0476) 3036 
700 REM x ,_’i ,i on?- TI BASIC 
210 CALE CLEAR 

220 PRIMI " GRAFICO DI UNA FUNZIONE":::::::::: 
270 DIM Sili (14, i.4) , P (240 ) , ESA* (16),E* <15) 

240 RESTORE ^Oó 
250 FOr J 0 IO 14 
?6<~' FOR K~0 TO 14 
770 READ S$<J,k:> 

7SO NEX T r ! 

290 nf:<t j 

■700 DATA 0. 1,2,3,4.5,6. 7,8, 9, A, B, C-D, E 
r 10 DATA 1,1, 7. 3, 5.7, 7. 9. 9. B, ET, Dii D. F 

770 DA'I A 2 7 2,7.61 7, 6, 7, A, P , A, E‘. E , F . E 
•: 7 0 D A T A 3, 7 , 7 ; 3.7. 7, 7 7, B, B, P, EÈ F1 F. F 
>40 DATA 4.5, E,7,4,5,6. 7;C,D,E,F;C,D,E 
350 DATA 5, 5', 7, 7, 5, 5, 7\7\ D, D, f ì F , D, D'. F 
36DATA 6,7,6,7,6, 7 6, 7, F, F, E, F ! : , F . F 
70 DATA 7 ,7,7 7 , 7, 7, 7 .7, F , F , F , F , F : F . F 
:-8o DATA 8,9, A,fì,C,D,F , F,8.9,A, B,C,D,E 
790 DA T A 9 , 9 „ B , B, D , L F, F, 9,9 ’ B B 1 D, D, F 

400 DATA A , B , A , Fi, E, F . E ; F, A , B , A . E , E, F . !... 

4 10 DATA B, B, B. B, F , F„ F, F , B, B, P, B, F, F F 

420 data c,d;f;,f,c,d,e,f,c,d,e,f,c,d.e; 

430 DATA D, D, F 1 F D, D ! F , F. D, D, F, F ,D,D, F 
440 DATA E, F . E, F, E, F, E, F . E. F , E. F‘, F . F. E 
450 REM 

460 REM CARATTERI PER 

470 REM DISEGNARE GLI 

480 REM ASSI 

490 REM 

- >0 Z % < 1 ) ■-= ' 11 ( 10101010101 0101 " 

.1 0 Z 3; \ 2 ) ~ " FFOOOOOOOOOO0000 " 

520 Z$ (3) - "FF01010ì0101 01Óì " 

530 CAIL CHAR(33,21(1)) 

54u CALI. CHAR (34, ZI (2) ) 

550 CALI. CHAR ( 35, Z1 ( 3) ) 

560 REM 

570 REM ISTRUZIONI 

230 REM 

39Ò CALÈ CLEAR 

600 FRINT " DEFINIRE LA FUNZIONE ALLA" 

610 PRINT "LINEA 850 DEL PROGRAMMA"::: 

620 PRINT " SE LG AVETE GIÀ" FATTO " 

* 70 PRINT "SCRIVETE GLI ESTREMI" 

040 PRINT "DELL'INTERVALLO DI" 

,50 PR[NT "DEFINI2IONE ( X1< X2) .": : 

. 60 PRINT " IL. GRAFICO E r DIMENSIONATO" 

7 70 PRINT "AUTOMA!ICAMENTE": : : 

680 INPUT "XI. - " ; X1 
690 INPUT "X2 " :X2 
700 LF XI< X 2 THEN 740 
710 PRINT 

720 PRINT "DEVE ESSERE X1.<X2, RIPROVA"::: 

730 GOTO 6B0 
740 TRSX=0 
750 TRSY=0 
760 TRSXO—O 
770 TRSY0=0 
780 CAL.L CLEAR 

790 PRINT TAB<7);"DIMENSIONAMENTO"::::: 

800 PRINT TAB(11);"RUNNING":::::: 

810 REM 

820 REM ****************** 

830 REM 
840 REM 

850 DEF Y=X-" 3-3*X 
860 REM 
870 REM 

880 REM FUNZIONE 

890 REM 

900 REM ***************** 

910 REM 

920 UX=<X2—XI)/240 
930 X = X1 
940 MAX=Y 
950 MIN=Y 

960 FOR 1=1 TO 240 
970 X=X1+I*UX 
980 IF Y<=MAX THEN 1000 
990 MAX=Y 


4SQR (1 - X x X). Abbiamo già 
detto che il radicando non può esse¬ 
re negativo, pertanto X non può es¬ 
sere minore di — 1 nè maggiore di + 
1. Indicate l’intervallo X 1 = - 1 e X 
2=1. Procedete come in prima. 

Non è necessaria la traslazione 
degli assi perciò dopo la loro stampa 
premete un tasto qualsiasi eccettuati 
quelli con le frecce. 

4) Inserite la funzione Y = SIN(X) 
ed indicate l’intervallo X 1 = 0 e X 2 
= 12.6. I valori di X sono espressi in 


radianti e 12.6 rappresenta circa 4 n. 
L’origine degli assi apparirà sposta¬ 
ta a sinistra piuttosto in alto. Il com¬ 
puter ha calcolato esattamente lo 
spazio necessario per la stampa del 
grafico, tuttavia questa avverrà nel¬ 
la parte superiore dello schermo. Se 
desiderate centrare l’immagine azio¬ 
nate il tasto X (1) più volte fino a 
portare l’origine nella posizione più 
opportuna, quindi premete un tasto 
qualsiasi per la stampa (vedi figura 
4). ■ 
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milano 7/10 febbraio 1984 


Cuoluzione computer 


l'appuntamento annuale con il 
meglio della produzione americana 
nel settore dell'informatica: 
computer, periferiche, sistemi di 
word processing e trasferimento 
dati, software ed accessori. 


Tutte le case piti prestigiose del 
settore saranno presenti a questa 
manifestazione che si rivolge ad un 
pubblico altamente qualificato e 
desideroso di mantenersi aggiornato 
sulle ultime novità "made in U.S.A.". 





►MPUTER 


In occasione del 20 anniversario del 
Centro Commerciale Americano in 
Italia, la XIII edizione di F.DP USA 
dedica un intero padiglione ad una 
novità assoluta: la prima mostra 
commerciale di COMPUTTR 
GRAPHICS. 

Su questo tema specifico, nei giorni 
8 e 9 febbraio, verranno organizzati 
due seminari: uno ''tutoria!" per un 
primo approccio alle tematiche del 
Computer Graphics ed un altro 
"tecnico" per illustrare agli specialisti 
gli sviluppi più recenti del settore. 


Per ulteriori informazioni: 


CENTRO COMMERCIALE 
AMERICANO 


Via Gattamelata 5 - 20149 Milano 
Tel 02/4696451 -Telex 330208 USIMC I 





thello per ZX Spectrum 



Una nuova versione 
per Sinclair 

del popolarissimo gioco 
di strategia 

di Stefano Cerutti 

I l programma del listato I è 
una versione per lo ZX Spec¬ 
trum dell’ormai famoso gio¬ 
co Othello. 

La versione presentata occupa 
9585 byte e permette di simulare una 
vera partita tra due giocatori; anche 
la presentazione grafica è stata mol¬ 
to curata. 

Dopo il RUN, appare su uno 
sfondo giallo una pioggia di “Ferma 
il registratore”. 

Iniziando il gioco con la pressione 
di un tasto, viene stampato il titolo e 
vengono chiesti tramite INPUT i 
nomi dei due giocatori, il bianco e il 
nero, che possono essere al massimo 
di 13 caratteri. 

Per chi non abbia mai giocato il 
programma può stampare le istru¬ 
zioni usando una particolare routi¬ 
ne di stampa che simula il funziona¬ 
mento di una telescrivente. Interes¬ 
sante anche come vengono trattati i 
“data”. 

Dopo essersi accertato che le 
istruzioni siano state comprese il 
programma prepara la zona di gio¬ 
co, un quadrato verde di otto caselle 
per lato, con le ascisse numerate da 
uno a otto, e le ordinate contrasse¬ 
gnate dalle lettere da A a H. 

La prima mossa è sempre del gio¬ 
catore bianco, che deve inserire le 
coordinate del quadratino dove in¬ 
tende piazzare il suo gettone: biso¬ 
gna indicare sempre prima la lettera, 
poi il numero (ad esempio b5, a8). 



Figura 1. Il programma esamina tut¬ 
te le direzioni intorno alla casella do¬ 
ve viene posizionato il gettone. 



Figura 2. In questo esempio vengono 
esplorate le direzioni intorno alla 
( 2 , 2 ). 


Dopo circa due secondi i gettoni 
che devono essere girati cambiano 
colore con un ticchettìo caratteristi¬ 
co, e il calcolatore è pronto per rice¬ 
vere la mossa dell’altro giocatore. 

La situazione di gioco (il numero 
di gettoni del giocatore bianco e il 
numero di quelli del giocatore nero) 
e l’ultima mossa eseguita sono sem¬ 
pre visualizzati e aggiornati. 

Le mosse non consentite vengono 
segnalate dalla scritta “MOSSA 
NON CORRETTA”, da un beep e 
chieste di nuovo. 

Non è consentito piazzare un get¬ 
tone in una posizione già occupata o 
fare mosse che non facciano rove¬ 
sciare almeno un gettone avversa¬ 
rio. 

Le mosse si alternano così fino a 
quando tutta la zona di gioco non è 
completamente piena; ed allora vie¬ 


ne proclamato vincitore colui che 
avrà più gettoni del proprio colore 
in campo. 

Infine viene chiesto se si intende 
continuare a giocare se si desidera 
abbandonare il programma. 

Il carattere grafico che rappresen¬ 
ta il gettone corrisponde alla lettera 
“A”. 

Fate quindi attenzione ad inserire 
alle linee 40, 344, 355 il carattere 
giusto, cioè la “A” in modo 
“graphics”. 

Da notare il largo uso della varia¬ 
bile di sistema SCR CTche occupa il 
byte 23692 e della funzione TO. 

Detta variabile di sistema contie¬ 
ne il numero aumentato di uno degli 
scrolling che il sistema esegue prima 
di chiedere “scroll?”. 

Se mantenuta, per esempio, a 255, 
ciò evita al sistema di stampare 
“scroll?”, fermare il programma e 
aspettare una risposta. 

Con questo semplice accorgimen¬ 
to è stato ottenuto lo scrolling auto¬ 
matico senza interruzione. 

La funzione TO per l’estrazione o 
la definizione di sottostringhe è ca¬ 
ratteristica del BASIC Sinclair. 

Questa permette di ottenere gli 
stessi effetti delle funzioni-stringa 
dei BASIC standard, LEFTS, 
RIGHT$, MID$ e TL$. 

Per usare questa preziosa funzio¬ 
ne è sufficiente specificare la stringa 
sulla quale si intende operare e, tra 
parentesi, il carattere di inizio e di 
fine della sottostringa separate da 
TO. 

Per esempio, se a$ = 
“123456789”, a$ (5 TO 8) dà come 
risultato “5678”. 

Con un BASIC standard, per ot¬ 
tenere lo stesso risultato si sarebbe 
dovuto scrivere: MID$ (a$, 5, 4). 

Nel digitare il listato, i più pigri 
possono astenersi dal ricopiare le li¬ 
nee da 560 a 620 comprese, tutti i 
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Othello per 
Spectrum_ 

DATA da riga 741 fino alla fine del 
listato e tutti i REMarks. 

Il programma sarà così privato 
dalle istruzioni, ma occuperà meno 
memoria (circa 5734 byte) e girerà 
con meno grafica! 

Sperando che il programma vi 
piaccia, auguro a tutti buon diverti¬ 
mento! ■ 

Listato 1. Il programma Othello. 


1 REM *********************** 

2 REM * * 

3 REM « C T ì L ■- O * 

4 REM * 

5 REM * by Stefano Cerotti ■+ 

S REM * # 

7 REM *********************** 

8 BORDER 6 

9 PAPER 6 

10 INK 1 

11 Ci_S 

12 GO TO 15 

13 GO SUB 485 

14 GO TO 20 

15 GO SUB 481 

16 REM *********************** 

17 REM *s lampa campo da gioco* 
10 REM *********************** 
2© CLS 

21 FOR t =1 TO 6 

25 PRINT RT 1, Ul ; t;PT t + 1.1 ; C 
4R* lt+96) ; INK 4 ■■■■■■" 

30 NEXT t 
35 GO SUB 439 

4® PKINT RT 5,5; INK 7, PAPER 
J-; INK 0 ; "R" ; RT 6,S;"R", INK 

7; 

45 LET bianchis2 
50 LET neri=2 
55 LET f =0 
60 LET tot=4 
65 DIM C(3,3) 

75 DIM X(20J 
60 DIM V(20) 

35 LET tS«’" 

06 LET J»*"" 

S7 if bianchi< 1 © thcn let *$ = " 

88 IF neri<10 THEN LET J* = " " 

89 PRINT RT 14,2;"BIANCHI» 
tbianchi; RT 14,15 ;"neri= 

'100 IF f=0 THEN LET f- 7. PRINT 
AT 18,2; INUERSE 1;"MUOVE 
,IL BIANCO": GO TO 115 
105 LET F=0 

110 PRINT RT 18,2; INVERSE l;“M 
JOUE " ; n * ; *' , IL NERO 

115 INPUT k* 

120 LET CZ=0 

125 IF m%="XX" THEN GO TO 100 
130 IF B|="#nd" THEN GO TO 390 

135 IF LEN » * < > 2 THEN GO TO 115 

136 IF CODE «*(2>>3S OR CODE «* 
(2) <49 OR CODE «*<97 OR CODE «*> 
104 THEN GO TO 115 

140 PRINT RT 9,li;»* _ 

145 PRINT RT 4,13; FLPSM 1;"ATT 
ÌNDERE, PREGO." 

150 LET cx=URL «*(2) -fi 

165 LET cu=(CODE Ri)-95 
160 LET C2=0 

105 IF RTTR (Cy,CX) < >52 THEN PR 
INT BT *.,13. INVERSE 1; "«OSSfl NO 
1 CORRETTB". BEEP 2.0: PRINT RT 
i.,13;t*< TO IBI: GO TO 115 

166 REM **#**♦«*♦*»,,***»****** 

167 REM *■ carica in c(y,x> te a 
166 REM * direzioni di gioco * 

169 REM .a»»»*»*»**»»*»»»»»»*»* 

170 POR y-1 TO 3 

lei ir R x2I 1 RND y=a then next x 
ìli ÌF.ÌXV-'I TM^N U LET C ?t37?i - 

ò: OO TO 205 
195 LET C (y ,x) =1 
200 LET c2=c2+l 
205 NEXT X 

215 THEN PRINT RT 4, 13; 

INVERSE l;"MOSSA NON CORRc* > • 

BEEP 2,0: PRINT RT 4,13, t *( TO 
18): GO TO 115 

213 LET bl=bianchi 

220 LET nl=neri 

221 REM *********************** 

222 REM *U99e c (y , x > , età bora,* 

S£3 REM * analizza ,ponteggi , * 

224 REM * deposita in x(cz) , * 

225 REM * yicz? te coordinate* 

226 REM *d«! gettoni da 9irare * 

227 REM *********************** 

229 FOR y=l TO 3 

230 FOR x=l TO 3 _ 

235 IF C(y,X)=0 THEN NEXT X NE 
vT y : GO TO 330 
240 LET ax=/-£ 

245 LET ay=y-2 
250 LcT CXl=CX 
255 LET cyl-cy 
26S LET rpscz 
27© LET CZ«CZ+1 


PRINCIPALI ROUTINE UTILIZZATE 

20-40 Preparazione del video, con chiamata al sottoprogramma di linea 459 che 

definisce il carattere del gettone. 

45-86 Inizializzazione variabili e DIMensionamento vettori. 

89-145 Stampa i punteggi, sceglie chi deve muovere, richiede la mossa, controlla la 
sua validità ed esattezza. 

160-220 Analizza la posizione del gettone appena depositato, sceglie le direzioni su 
cui lavorare e deposita i risultati di questa analisi in c(3,3). 

229-315 Legge il vettore c(3,3), elabora, deposita le coordinate dei gettoni da girare 
in x(20) e y(20). 

330-380 Aggiorna i punteggi, stampa i gettoni, aggiorna il numero totale dei gettoni 
e controlla se la partita è finita. 

390-455 Routine cui si accede a partita conclusa: proclamazione del vincitore e 
richiesta di una nuova partita. 

459-480 Routine di definizione della matrice del gettone. 

481-625 Presentazione, chiede il nome dei due giocatori, richiede e stampa le istru¬ 
zioni. 

635-735 DATA per la stampa della presentazione (titolo). 

740 DATA per la definizione del gettone. 

745-1045 DATA per le istruzioni. 


VARIABILI USATE 

t, I, y, x Variabili di controllo nei cicli FOR TO...NEXT. 

bianchi Numero dei gettoni bianchi, 

neri Numero dei gettoni neri. 

f Se f = 7, sta giocando il bianco, se f = 0 sta giocando il nero, 

tot Numero totale di gettoni presenti sul campo da gioco, 

ex, cy Coordinate del gettone appena giocato. 

bits Contiene uno degli otto byte che occorrono per la definizione del 

carattere. 

xl, yl, x2, y2 Variabili usate per stampare il titolo mediante 44 serie di PLOT e 
DRAW. 

ax, ay, cxl, cyl, rp Variabili usate durante l'analisi delle direzioni di gioco, 
cz Contiene il numero di gettoni da capovolgere in una mossa, cioè 

quelli che vengono sottratti all’avversario. 

c2 Contiene un numero compreso tra 0 e 8, che è quello delle direzioni 

dove è possibile girare dei gettoni. Se contiene zero la mossa non è 
valida. 

a Contiene gli attributi di una delle otto posizioni adiacenti al gettone 

appena giocato. 

al Simile ad a, lavora insieme ad ax, ay. 

bl Prima di ogni mossa, viene posto uguale ai bianchi, 

ni Come bl, se dopo una mossa tutti e due sono rimasti uguali ai loro 

corrispettivi, si ha il messaggio di errore perchè significa che la mossa 
non ha fatto girare nessun gettone. 


VARIABILI STRINGA 

Contiene sempre 30 spazi e serve un po’ ovunque. 

Coordinate del gettone appena giocato. 

Se contiene “no" si desidera abbandonare il programma: questo provoca la cancel¬ 
lazione automatica di tutta la memoria, lasciandola pulita. 

Se contiene una qualsiasi stringa diversa da “n”, si desiderano le istruzioni. 
Contiene una linea di istruzioni da stampare. 

Se contiene "n” si desidera rivedere le istruzioni. 

Se il numero dei gettoni bianchi ha una sola cifra, contiene uno spazio, altrimenti è 
una stringa nulla. 

Lo stesso di k$, ma per il nero. 


54 

















Othello per 
ZX Spectrum. 


Seguilo listato I. 


27 S L£T 3 l=RTTR < c y 1 ,ay , cx 1 +ax > 
2 B 3 IF al <>39 fiND al <>32 THEN L 
ET CZ=rp NEXT X. NEXT y GO TO 
*30 

265 IF a 1=32 + f THEN LET CZ = CZ-1 
NEXT X : NEXT y . GO TO 330 
295 LET X (CZ) »cxl+ax 
300 LET y i cz)=cy1+ay 
305 LET CXl=CXl*dX 
310 LET cyl=cyl+ay 

315 GO TO 270 

316 REM a*****##*#*»**#****#*#* 

317 REM * aggiornamento punti 4 
315 REM *********************** 
330 IF CZ=0 THEN PRINT fiT 4, 13; 
INUER5E 1,"M05SR NON CORRETTA": 
BEEP 2,0: PRINT RT 4,13;t$( TO 

IO): GO TO 115 

333 IF fo0 THEN LET neri=neri+l 
►cz: LET bianchi«bianchi-CZ: GO 
*0 33© 

335 LET ntrisneri-cz 

336 LET bianchi sbianchi+C2 +1 

338 REM * »»*******»»»*»*»*****« 

339 REM 4 stampa gettone e a 
34-0 REM * cambio di colore * 
341 REM ***** ****************** 

344 PRINT RT 4,13; t$( TO 1©) ; RT 
c y , ex ; PRPER 4; INK f;"R” 

345 BEEP .01,20 
350 FOR t=l TO CZ 

355 PRINT RT y(t),X(t); PRPER 4 
INK fi "R" 

360 BEEP .01,20 
365 NEXT t 

367 IF bianchi=0 OR neri=0 THEN 

GO TO 390 

370 LET tOt=tot+l 

375 IF tot=64 THEN GO TO 390 

360 GO TO 85 

381 REM *********************** 

382 REM « proclamazione * 

363 REM * vincitore o parità' * 
384 REM t*******»»*****»*»**##» 
390 PRINT RT 14,2;l*;RT 18,2;t* 
RT 4,13,tf( TO 18) 

395 FLRSH 1 
400 BRIGHT 1 

405 IF bianchi>neri THEN LET vi 
= b* LET p t=n % : GO TO 420 
410 IF bianchi=neri THEN GO TO 
130 

415 LET Pj = b| 

420 PRINT RT 12,3; INK 2;"BRRUO 
> -vi;"! SEI RIUSCITO 

} BOTTERE PER • ; bi an c h i ; " 

r neri ; “ l " 

425 GO TO 435 

430 PRINT RT 12,3; INK 2J gRAUX 
.•ioti" E •• j V i; ! RUETE PRREGGIR 

L 0 ! *• 

431 REM **#**#t*t*#**##**»t»*#* 

432 REM * richiesta di una * 

433 REM * nuova partita * 

434 REM **»*»#*»#»**♦**«*»»♦»* 

435 INPUT "UN'BLTRR PARTITO? ; d 
440 IF d$="nO" THEN NEU 

445 FLRSH 0 
450 BRIGHT 0 

455 RUN 15 

456 REM *********************** 

457 REM * def. carattere * 

458 REM *********************** 

459 RESTORE 740 

460 FOR t=0 TO 7 
465 RERD bi ts 

470 POKE USR ‘ , a ,, +l,bits 
475 NEXT t 
488 RETURN 

481 IF INKEV i < > “ *’ THEN GO TO 48 


402 PRINT TRB RND*19; 
STOP thè tape” 

483 POKE 23692,255 

484 GO TO 481 


FLRSH 1; 


485 CLS 

486 REM 


*********************** 
407 REM * stampa presentazione* 
488 REM *********************** 
490 FOR t=l TO 44 
495 RERD XI 
500 RERD y1 
505 PLOT INK 
510 RERD X2 
515 RERD Y2 
520 DRRU INK 
525 NEXT t 
530 PRINT RT 
li BRIGHT 1, 


3; Xl*8-l,yl*8-l 

3;x 2 *8,y2*8 

14,7; INK 4; FLRSH 
"by Stefano Cerutti 


535 PRUSE 0 
S38 DIM t $(30) 

537 DIM b $(13) 

538 DIM n|(13) 

540 INPUT "NOME GIOCRTORE ©IRNC 
1 (MRX.13 CHAR.)";u* 

545 IF LEN Ui>13 THEN GO TO 540. 
5S0 INPUT "NOME GIOCRTORE NERO 
(MRX . 13 CHRR . ) v % 

555 IF LEN v»>13 THEN GO TO 350 

556 LET b*tINT ((13-(LEN U*)>/2 
TO INT ((13-ILEN u|))/S)fLEN U 

S) =u $ 

557 LET n*(INT ((13- (LEN v|))/2 
TO INT C(13- (LEN v*))y2)+LEN V 

*) =Vl 

563 INPUT "DOLETE LE ISTRUZIONI 

? ( s /n ) ",ol 

565 IF o|="n" THEN RETURN 
S70 POKE 23692,255 
575 CLS 

S* 7 © REM *********************** 

577 REM * stampa istruzioni * 

578 REM *********************** 

579 RE5TOPE 745 

580 FOR t=l TO 60 
585 RERD fi 


x(2») 


y(20) 

c<3,3) 


VETTORI USATI 

Ascissa dei gettoni che devono cambiare colore conseguentemente ad una mos¬ 
sa. È formato da venti variabili perchè questo è, teoricamente, il numero massi¬ 
mo di gettoni che è possibile girare in una sola mossa. 

È molto raro ma possibile che si verifichi questa situazione. 

Ordinata dei gettoni da girare, usata insieme a x(20). 

Questo vettore a due dimensioni costituisce praticamente il “cuore” del pro¬ 
gramma. 

Esso permette di sapere subito le direzioni di gioco: se la variabile corrispondente 
è settata (contiene uno) vuol dire che rappresenta una direzione da analizzare, 
altrimenti contiene zero e la direzione corrispettiva viene ignorata. 

Dalla figura 2 appare chiaro che con due cicli FOR...TO...NEXT concatenati è 
possibile controllare tutte le otto direzioni. 

Naturalmente, dato che un vettore non può avere indice - 1 o 0, è stato tutto 
aumentato di due (figura 2). 

La posizione 2,2 non viene esaminata, non essendo una direzione ma la posizione 
del gettone appena giocato: da qui si capisce il perchè delle linee 180, 185, 240 e 
245. 


Seguito listato 1. 


587 PRINT 

588 PRINT 

589 POKE 23692,255 

590 FOR 1=1 TO LEN f* 

ESI IF CODE f SS f l ) =32 THEN GO TO 
600 

595 BEEP .01,1 
600 PRINT f *(l); 

605 NEXT l 
60 7 BEEP .08,25 
610 NEXT t 
612 PRUSE 3000 

515 INPUT ‘E TUTTO CHIRRO ? (S /n 

" ; f$ 

620 IF r $ = "n" THEN GO TO 570 
e23 CLS 
623 RETURN 

626 REM *********************** 
•527 REM * DRTR per titolo * 

628 REM *********************** 
635 DRTR 7.20,0,-5,7,13,3.0,10, 
15 

64© DRTR 0,5,10,20,-3,0,8,19,0, 


1,0,11,1S,0,4,1 


645 

DRTR 

6,16 . 1 , < 

. -a 

650 

DRTR 

0,13,19 

*655 

L 

DRTR 

12,15,-: 

660 

DRTR 

19,-1,0 

5 

665 

DRTR 

0 , -5 , 13 

. 1 

6 70 

DRTR 

16,16, -i 

l 675 

DRTR 

17,1,0,: 

. -1 

680 

CAI R 

0,14,18 

16 

685 

DRTR 

19,0,1,: 

. 0 

690 

DRTR 

-4,17,1( 

l 69S 

DRTR 

19,15, -; 

3 

700 

DRTR 

20,0,-5 

5 

705 

DRTR 

1,0,20,; 

. 0 

710 
. 20 
715 

DRTR 

22,15,0 

DRTR 

0,-5,25 

l 720 

DRTR 

24,19,0 

?3 

725 

DRTR 

16,0,3 


14,16,0,1,1 
0,15,17,0,1,15,16 


,16,16,0,3,1 
,15,3,0,19,2 


- 1 , 0 , 


736 REM *********************** 

737 REM * DRTR def. carattere * 

738 REM *********************** 

740 DRTR 0,60,126,126,126,126,6 

5,0 

741 REM *********************** 

742 REM * DRTR per istruzioni * 

743 REM *********************** 
745 DRTR t*( TO 13)f"Ot«llo *t* 

( TO 13) 

7S0 DRTR t*< TO 13)*”_”*t* 

< TO 13) 

755 DRTR tf 

760 DRTR ti( TO 7)*"by Stefano 
^erutti "+t$( TO 7) 

765 DRTR t *, t % 

770 DRTR “Questa e' una version 
? de l 

776 DRTR "popolare gi<*co per do 
e persone 

780 DRTR ••chiamato Othello. 


785 DRTR “SUO SCOPO 
i imprigio-’* 

790 DRTR "nare i gettoni 


que Ito d 
avvers 
trasformarti in getto 
con c 


li del 

800 DRTR “proprio colore 
ludere la 

805 DRTR “partita con un numero 

di gettoni" 


Seguito listato 1. 

810 DRTR 

"maggiore di quello d 

ili' a vv e r 


615 DRTR 

"««rio. 

620 DRTR 

"Dopo aver inserito i 

/ostri nomi” 

825 DRTR 

“il giocatore bianco d 

jv ra ' inse 

— " 

830 DRTR 

“rire le coordinate d 

»lla posi 

— *• 

835 DRTR 

"zione dove intende pi 

azzare il 


040 DRTR 

"suo gettone, prima la 

lettera , 


045 DRTR 

“poi il nume ro . 

©50 DRTR 

“In seguito le mosse 

ii alterne 

— " 

865 DRTR 

“ranno,bianco e nero. 

860 DRTR 

“Il numero di gettoni. 

il tu rno 


865 DRTR 

"di mossa e la mossa s 

lessa ver 

— *• 

870 DRTR 

“ranno sempre visualiz 

' a t i . 


875 DRTR 

Il ribaltamento dei g 

ì t t on i e ' 


880 DRTR 

"ao toma t ì co . 

885 DRTR 

"Se un giocatore con u 

>a sua mos 


890 DRTR 

“sa non riuscirà' a gi 

'are 


900 DRTR 

"neanche un gettone av 

'esario 


905 DRTR 

"verrà' visualizzato i 

messaggio" 

910 DRTR 

"di errore. 

915 DRTR 

"In tal caso dovrà' in 

ìc r i re le 


920 DRTR 

" coordinate di un' 

Ktra mossa 1 ' 

925 DRTR 

“se possìbile, oppure 

ligi tare 


930 DRTR 

'xx' per saltare il 

cu rno. 


935 DRTR 

"La partita ha termine 

quando 


940 DATR 

"SUL CAMPO DI GIOCO SO 

JO PRESENTI” 

945 DRTR 

"64 GETTONI, 

950 DRTR 

*ta scacchiera e' Pier. 

> e automa 


955 DRTR 

’tica mente verrà' proc 

carnato vin 

— •• 

960 DRTR 

’citore il giocatore c 

> n p i u * g e t 

— " 

963 DRTR 

"toni del proprio colo 

970 DRTR 

NESSUNO DEI GIOCATORI 

PUÒ' FRRE 


975 DRTR 

•NiJOUE MOSSE, 

980 DRTR 

“sul ‘campo di gioco so 

ìo presenti” 

985 DRTR 

"solo gettoni di un co 

.ore , 


990 DRTR 

"In tal caso,invece di 

una mossa 


995 DRTR 

"occore digitare 'end' 

1000 DRTR 

"seguirà' la proclamaz 

'. o n e del 


1005 DRTR 

“vincitore. 

1010 DRTR 

t $, t * 

1015 DRTR 

"E' comunque possibile 

termina re 


1020 DRTR 

“la partita in ogni mo 

lento , 


1025 DRTR 

"digitanto 'end' al po 

, to di una 


1030 DRTR 

"mossa qua isiasi . 

1040 DRTR 

t*( TO 7)*"Buon Di veri 

mento ! ! * 

"+t*( TO 7) 

1045 REM * * * * *THE * *END ********** 
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Due giochi 
per ZX81 


di Claudio Driussi 


Dama cinese 

Q uesta Dama cinese è la ver¬ 
sione per ZX81 del famoso 
solitario di origine orien¬ 
tale, le regole sono semplici: all’ini¬ 
zio ci sono, su una scacchiera a for¬ 
ma di croce, 32 pedine che vanno 
eliminate “mangiandole” allo stesso 
modo della dama tradizionale, ma a 
differenza di questa non è consenti¬ 
to muovere una pedina senza man¬ 
giarne un’altra. Scopo del gioco è 
quello di mangiare tutte le pedine ad 
eccezione di una che deve rimanere 
nel centro della scacchiera. 

Per quanto riguarda la grafica si 
scrivono direttamente nella memo¬ 
ria video i codici delle pedine. Per 
giocare prima si inseriscono le coor¬ 
dinate della pedina da muovere e poi 
la direzione sulla base dei tasti che 
appaiono sullo schermo; per abban¬ 
donare si inserisce 0 alla richiesta di 
mossa. 


Motocross 

Ecco un gioco di animazione, con 
soggetto il Motocross. L’idea di 
questo programma è nata da un pro¬ 
gramma per VIC 20 del numero 2 di 
P.S.; data la grande differenza tra 
ZX81 e VIC 20 i programmi sono 
completamente diversi. Il program¬ 
ma simula la corsa di un motocicli¬ 
sta che deve saltare una serie di osta- 
I coli disseminati lungo il cammino; 
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per saltare si preme il tasto “7”. Alla 
fine della corsa il calcolatore legge, 
in FAST, la memoria di schermo per 
sapere quanti ostacoli sono rimasti 
(codice 4) ed in base al risultato ed 
alla precisione dei salti calcola il 
punteggio. Il programma tiene inol¬ 
tre conto del massimo punteggio 
raggiunto da quando è stato acceso 
il calcolatore; non si possono co¬ 
munque fare più di 30 punti. a 


■ 0 

- -■ “n*: 

TRI- 

C 


"Mh cinese 


600 

IF D$<>''G” THEN GOTO 630 








610 

LET 5*132 

- 0 

Pr ; NT 

i R 3 

y 

' 1 



62© 

LET 0=66 


P -vl’i ; 






530 

IF l>$ < > "H” THEN GOTO 660 

r. 3 

PRINT 

' qò 

ì:. ; 




547* 

LET 5-136 

70 

PRINT 

' R5 


‘ 1 

/■ 1 E 


650 

LET 0=66 








6 60 

IF -r-=0 THEN GOTO 3^0 


PRINT 






665 

POKE P.126 

"s 







670 

IF PEEX 'PtOj = 126 h.NC< REE* 

9 : 3 

PRINT 

‘ R5 

c-. 


aii 


'■ R *-?. 

=52 THEN GOTO 70© 

~m 







660 

PRINT RT 20,6. MUSSO NON nr 

1 00 

PRINT 

TRU 





N5ENTIT R” 

V 







690 

GOTO 220 

110 

PR INT 

• RE 

• j ; 

■’ 3 

i s a a ■ b 

-i. 

700 

POKE P,52 

S f 







710 

POK 3 P +5 ..126 

120 

PRINT 

ThB 

O .i 


i 


?20 

POKE P+O.,52 

r* 







730 

LET N-N - : 


PRINT 

ThB 

6, 

"4 

li a I o i 


'4 0 

IF N=1 THEN GOTO 760 

J s 







750 

GOTO 220 

140 

PRINT 

TRE 

6, 


i 


76© 

PRINT RT 21, IO - "URI UINTQ 

B 








Ir INKEYi = " ’' THE- GOTO 77© 

150 

PRINT 

T Rt> 


" 5 



780 

CL6 

sB 







793 

GOTO 1 

160 

PRINT 

TP6 



** 


300 

PRINT RT 21,3, TI SONO RIM- 








f~F- ’ 


ITO 

PRINT 

T RB 

6, 

"6 

ni 


510 

IF INKCV**"" thF GOTO 510 









CL5 

160 

PRINT 

TR6 



\ 


530 

GOTO 1 








3969 

STOP 

190 

PRINT 

TRE 

6, 

" 7 



9990 

SRUE ‘ DRMR CINFSa” 








9993 

GOT 0 1 

200 

PRINT 

TRE 

6, 






210 

Lr-T K = 

=175*PEEX 

15396♦PEEK 




5? 9 7 

4256 








2 i* 3 * 

LcT N 

=3^ 







217 

PRINT 

RT 

20, 

6, 

© - PER UN 




uovo 

GIOCO" 








223 

PRINT 

RT 

21, 

10, 

” MUOVI” 





^30 INPUT M 

235 IF H = 0 THEN GOTO SOS 
24.0 LET YbINT Ui/10) 

250 LET X = M-Y * 10 

260 IF V < 1 OR Y;7 OR X;1 OR a';" 

THEN GOTO £30 

270 PRINT RT 20,6;"" 

";RT 21,10;" 

260 LET P = K+56* (Y —in +2* »X —1) 

200 IF PEEK P-125 THEN GOTO 35€ 
300 PRINT RT 20,6;"COORDINATE E 
RRRTE 

310 GOTO 220 

320 PRINT RT 19,23,”5 6 7” 

330 PRINT RT 20.22 "R U" 

340 PRINT RT 21,23,"F G H” 

360 PRINT RT SI,1C,“DIREZIONE? 

360 POKE P,169 

370 LET 6=0 

360 INPUT Dt 

390 PRINT RT 19,23.” 

400 PRINT RT 20,22,” 

41© PRINT RT 21,10,” 

420 IF Dtc;-"5 ‘ THEN GOTO 450 
43C LET 6=-136 
440 LET O = --63 

450 IF D*<>”5” THEN GOTO 430 
460 LET 5=-132 
470 LET D=-66 

460 IF E>$ < > THEN GOTO 510 

490 LET 5=-126 
500 LET C = ~64 

510 IF D*<>‘P” THEN GOTO 540 
520 LET 6=-4 
530 LET G=-2 

540 IF t>% < > ”U” THEN GOTO 570 
550 LET 5=4 
560 LET 0=2 

570 Ir D $ < >”F” THEN GOTO 600 
560 LET 5=126 
590 LET 0=64 



0 - PER UN MUO'JO GIOCO 
MUO'.M 

ORHR CINESE 
1 2 3 4 5 5“ 




Wm 


n o i fi m 


\ m 0 ■ / 

V ooo y 

5 e- 7 

p u 

DIREZIONE? F G H 






















; ù- jSmì 


11 Dama cinese 
"WWE- _ e Motocross- 




LET 5. M e 

p- 

PS IN" 'h2 3, 




33 

LET 


POP. I=c O il 5TtP 5 



— . 7 , 

• -E 7 I 

i “ 3 

LcT 9=5 




POP 0 = _ 70 5® 

163 

1.1-T 6=B + I1JT *PNC>*3+4» 


Ir S<29 r HEN GOTO SI® 

.93 

L. c7 B=B-26 

2<Z3 

LET P = hf5 

21® 

PhINT PT P,6.'," 

22® 

IP Ri-£y PNO 5; 21 TrtEN GOTO 



£30 

ti E > 7" O 

£4 0 

LET P =51 -0*3 

54 2 

PSINT hT 4,0,h$ 


RkINT hT 5.-0, Et 


FRINT PT 2,0. PRONTI" 

se® 

F OR I = i iO 100 

£7® 

NEXT I 

283 

PSINT PT 5,0;”UIR 

i 0 5 

LcT P=P-, 1 

cf 90 

Ir INKEYt = "” THEH GOTO 265 

323 

LET F=® 

35® 

LET p = 5 

36® 

LET 6=0 

37® 

POR 0=1 TO 116 

3801 

LET 6 = 6 + 1 

39® 

IF E<30 then GOTO 42® 

322 

PSINT PT 9-2,29, 

•394 

PRINT PT 9-1,29. 

395 

PSINT RT 9,29. 

433 

LtT 6=6-30 

41® 

LET 9=9*5 

0 

IF INK£Y*="7" THEN GOTO 47® 

4 25 

PSINT PT 9-1,e,9$ 

43® 

PRINT PT fi,B;B$ 

44® 

Ir F < =0 THÈN PRINT PT 9,6-1 

' 4 42 

Ir F=0 THEN GOTO 45® 

44 4 

PRINT PT 9-2,6." 

4 4 5 

PRINT PT P-1,B-1;" " 

44.=; 

LcT F=0 

4 5® 

NEXT O 

4t.® 

GOTO 610 

4 /•© 

IF F =5 OR F = -1 THEN GOTO 57 


472 

LET P=P-1 


475 

PRINT PT 9-2,6,9$ 


4 63 

PRINT PT 9-1,6,6$ 


4Ci3 

PRINT PT 9-1,6-1," 


50© f 

IF F=® THEN PRINT 

PT 9,0-1, 

510 

LET F=F + 1 


i>5® 

NEXT O 


56® 

GOTO 610 


57® 

LET P=P-2 


575 

PRINT PT 9-1,6,PS 


58® 

590 

591 

PRINT PT 9,6,B* 
PRINT RT 9 , B - 1, ** " 

IF F<>5 THEN GOTO 

60® 

592 

PSINT PT 9-2,6," 


594 

PRINT PT 9-1,6-1,” 


596 

LET F=-l 


60® 

NEXT O 


610 

PRINT PT 18,26," 


623 

PRINT PT 19,28," 1 

, PS 

630 

PRINT PT 20,26;" * 

; bs 

64® 

LET K=PEEK 16396+PEEK 16397” 

*255 



f=. 4-5 

LET 03=0 


646 

F95T 



FOR 1=0 TO 726 


563 

IF PEEK < K +1> =4 THEN LET 05 

= 06 + 1 


670 

NEXT I 


683 

LET P = INT P-(G-GS> 

* 7 

685 

IF P<0 THEN LET P=® 

563 

IF PM(P THEN LET PH=P 

693 

SLOU 


70® 

PSINT PT 2,0, "PUNTI " ; P, " P 

ONTEGGIC MPSSIMO ", PM 

GOTO 71® 

71® 

IF INKEY S= "" THEN 

72® 

CLS 


73® 

GOTO 1® 


9989 

STOP 


999® 

SPL-E ” HOT 0CR05B" 


9999 

GOTO 1 


UWWMiilllHIIWWWI 

v IH 




0^0 










Listato 2. Il programma de! gioco 
Motocross ed un esempio di gioco. 


Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell’informatica relativamente 
nuovo, ma suscettìbile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienzq nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 

Mauro Salvemini 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
Immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
aH'argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 

SCONTO 20% AGLI ABBONATI 
FINO AL 28-2-'84 


COMPUTER 

GRAFICA 

176 pagine. Lire 29.000 
Codice 519 P 


GRUPPO 

EDITORIALE 

JACKSON 






Per ordinare il volume utilizzare 
l’apposito tagliando 
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•Caratteristiche 
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iani di ammortamento 
—mutui con lo ZX81— 


Una lezione 
di economia per fare 
bene i conti con le rate 


di Angelo Motta 


F ra i vari tipi di finanzia¬ 
menti che le banche conce¬ 
dono ai privati figurano i 
mutui ipotecari ed i prestiti persona¬ 
li. 

I primi, assistiti da garanzia ipote¬ 
caria come indica il nome stesso, 
vengono rilasciati per costruzione, 
acquisto o ristrutturazione di immo¬ 
bili; i secondi, di importo general¬ 
mente inferiore, oscillante fra un 
massimo di 5 o 10 milioni in dipen¬ 
denza dell’Istituto di Credito a cui ci 
si rivolge, vengono concessi a fronte 
di esigenze correnti (cura, studio, 
acquisto autovettura, arredamento, 
ecc.) e solitamente sono assistiti da 
garanzie personali o rilasciati in 
bianco. 

Caratteristica comune di entram¬ 
bi i finanziamenti è il rimborso a 
rate costanti altresì chiamato, mate¬ 
maticamente, ammortamento fran¬ 
cese. 

Per definizione l’ammortamento 
di un prestito, o rimborso graduale, 
si ha quando il debitore paga perio¬ 
dicamente, oltre agli interessi, anche 
una parte del capitale; la somma 
complessiva degli interessi del perio¬ 
do, più il capitale rimborsato, si 
chiama rata. 

Vi sono diversi tipi di ammorta¬ 
mento di un prestito: quello più in 


uso e che verrà preso in esame è 
detto a rate costanti o francese. 

Un’altra caratteristica di questo 
ammortamento riguarda la compo¬ 
sizione della rata, inizialmente com¬ 
posta quasi totalmente da interessi 
ed in minima parte dal capitale rim¬ 
borsato. Per effetto del rimborso di 
quest’ultimo, la quota interessi di¬ 
minuisce lasciando posto ad una 
maggior quota capitale, fino ad arri¬ 
vare alle ultime rate nelle quali i rap¬ 
porti iniziali vengono invertiti. 

Il programma presentato permet¬ 
te di ottenere i suddetti piani di am¬ 
mortamento per capitali interi fino a 
L. 999.999.999.=. Questa limitazio¬ 
ne di importo è dettata da ragioni 
grafiche: cifre superiori non permet¬ 
terebbero la stampa del piano su tre 
colonne così com’è strutturato. 

Un’altra limitazione, sempre per 
necessità grafiche, è il numero delle 
rate in un massimo di 99. Si fa pre¬ 
sente che il programma accetta un 
numero minimo di 2 rate perchè il 
rimborso in unica soluzione esula 
dalla definizione di ammortamento 
data in precedenza. 

Dopo aver caricato il listato in 
figura 1, dare il RUN ed apparirà il 
menu. 

Il programma principale si basa 
sulle istruzioni delle richieste n. 1 - 
Introduzione dati e n. 2 - piano di 
ammortamento. 

Nella prima fase lo ZX81 chiede 
l’inserimento dei dati (capitale, tas¬ 
so, numero rate e periodicità delle 
stesse) e successivamente calcola il 
piano per intero. Nella seconda ri¬ 
chiesta provvede invece alla stampa 
dello stesso. Le richieste n. 3 - 4 - 5 
sono parti del programma principa¬ 
le e permettono di ottenere dati sen¬ 
za attendere la stampa del piano 
completo. 

Le REM inserite nel listato rendo¬ 
no chiara la lettura dello stesso. 


Figura 1. Il listato BASIC. 



INTRODUZIONE 


PIANO DI RUMOR 7 
■3) COMPOSIZIONE RE 


•4-) RICERCA DEBITO 
RICERCO DEBITO 


REGISTRAZIONE D 


330 PRINT 

34.7» PRINT 
AMENTO" 

3B0 PRINT ,, 

TA QUALUNQUE" 

300 PRINT 

• ; r* 

370 PRINT 
Q* 

300 PRINT 
ATI" 

390 INPUT R 

4-00 IF R<1 OR A>6 OR INT A<>A T 
HEN GOTO 300 
4-10 CLS 

420 GOTO 10001R 

500 REM _ _ 

S10 PRINT AT fll,! 
t* IL UIDEO?" 

520 INPUT E % 

530 IF CODE E**B1 TMEN GOTO 500 
54-0 PRINT RT 21,0;D* 

550 COPV 

500 CL 5 

570 RETURN 

600 LET M*=STR* M 

010 IF LEN M*»9 THEN RETURN 

620 LET H$ = " "+M* 

630 GOTO 610 

650 PRINT RT 20,0;"NON HAI INSE 
•ÌITO I DATI" 

660 PRINT "PREMI N✓L PER TORNAR 
!» AL MENU" 

670 INPUT E4 
680 GOTO 300 

700 PRINT RT 20,0;"DOPO IL PAGA 
MENTO DI QUALE RATA UUOI CONOSCE 
RE IL "; 

710 IF A*4 THEN PRINT F*; 

720 IF AsS THEN PRINT G*; 

730 INPUT X 

740 IF X<1 OR X >N OR INT X < > X T 
HEN GOTO 730 
760 PRINT RT 20,0,04+0* 

760 RETURN 

600 PRINT AT 0,0; A*; "CAPITALE ; " 
C ; " TAS30:";TR; U ■/." 

810 PRINT "RIMBORSO OGNI ";12/P 
: *• MESI CON N . " ; N 

820 PRINT "RATE DI CUI ";N-1;" 
RATE £ R 

83» PRINT "ED ULTIMA £ " ; UR 
840 PRINT A* 

850 RETURN 




LE : 

LEN Ef>9 
GOTO 


OR 

102 


1000 REM HHHH 
101O PRINT AT 0,0; 

1020 INPUT E* 

1030 IF LEN E*<1 OR 
INT UAL E* <>UAL E* TMEN GO 
3 

1040 LET C-UAL E* 

1050 LET CR=C 

106® PRINT C 

1070 PRINT ,,"TASSO. 

1080 INPUT TR 

1090 IF TR<c0 OR TR >100 TMEN GOT 
O 1090 

1100 PRINT TP; " " 

1110 PRINT , , "NUMERO RATE: ** ; 
1120 INPUT N 

1130 IF N<2 OR N >99 THEN GOTO 11 
20 

1140 PRINT N 

1150 PRINT ^"PERIODICITÀ" RATA: 
"," 1 - ANNUALE",," 2 = SEMESTRP 

LE",," 3 = QUADRIMESTRALE"," 4 = 
TRIMESTRALE"," 6 = BIMESTRALE", 
,”12 » MENSILE" 

1160 INPUT P 

1170 IF P<1 OR P >12 OR P=5 OR P> 
7 AND POIS THEN GOTO 1160 
1180 PRINT AT 6,19;P 
1190 PRINT AT 21,0;"SONO ESATTI 
I DATIT" 

1200 INPUT E* 

1210 CLS 

1220 IF CODE E * =51 TMEN GOTO 101 
0 

1230 FAST 

1240 LET T»TR/P/1®0 

1250 LET R-( C 1+T) **N*T) / ( (1+T) * ■* 
N-l) *C 

1260 LET R »INT R+l 
1500 DIM C * (N,9) 

1510 DIM C#(N,©> 

1520 DIM I*(N,9> 

1530 DIM R*(N,9) 

1540 DIM N*<N,2> 

1550 LET T I = 
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dt 
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Cod. 520 D 
L. 12000 


G8U 


r ordinare il volane utilizzare l'appetito tagliano inserito in fon 


















IL BASIC E LA GESTIONE DEI FILE 

Il libro si rivolge in modo particolare a chi già conosce il Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
file residenti su disco Dopo aver preso in esame, utilizzando 
numerosi esempi pratici, le particolarità del Microsoft, si pas¬ 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione dei file su disco, sia ad accesso diretto che sequenzia¬ 
le. Una terza parte del libro è infine interamente dedicata alla 
esposizione dei metodi pratici per l’uso dei file ad accesso 
diretto e dei data base. 

Cod. 515H L. 11.000 Pagg. 164 


50 ESERCIZI IN BASIC 

Una raccolta completa e progressiva di esercizi riguardanti 
matematica, gestione, ricerca operativa, gioco e statistica. 
Ciascun esercizio proposto comporta l'enunciazione e l'analisi 
del problema, la risoluzione mediante flow-chart e commenti, 
così come un programma che implementa la soluzione, illu¬ 
strato da semplici esempi rappresentativi. 

Questo metodo mette in grado il lettore di verificare passo 
passo le sue conoscenze e il livello di apprendimento raggiun¬ 
to. 

Cod. 521A L. 13.000 Pagg. 208 
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Un esempio di analisi 
-lessicografica- 


L’analisi dei testi 
con ZX Spectrum 

di Francesco Sardo 

L ’analisi filologica o lessico¬ 
grafica di un testo consiste 
nella scomposizione del te¬ 
sto stesso per accertare la frequenza 
di comparizione di ogni parola. 

L’analisi filologica è fondamenta¬ 
le strumento critico: l’ampiezza del 
lessico di un autore e la sua consi¬ 
stenza sono elementi essenziali per 
studiarne e valutarne l’opera. 

Ad esempio, per scrivere Le av¬ 
venture di Pinocchio, Collodi usò 
6.000 parole diverse, di cui 3.300 
una volta soltanto. Le parole più 
usate sono burattino, povero, casa, 
strada. 

Giorgio Manganelli, sul Corriere 
della sera, ricava da questi dati gli 
elementi per un’analisi critica dell’o¬ 
pera e dello scrittore. 

Inoltre, l’analisi lessicografica è 
uno dei sistemi più efficaci per ac¬ 
certare l’autenticità di un documen¬ 
to, cioè la sua reale appartenenza ad 
un autore. Confrontando infatti la 
frequenza delle parole rilevate in un 
testo in esame con quelle di un’ope¬ 
ra certamente appartenente all’au¬ 
tore (possibilmente riguardante lo 
stesso argomento), si può accertare 
con un buon margine di sicurezza 
l’autenticità del testo in esame. 

Questo tipo di esame viene effet¬ 
tuato abitualmente con grossi main¬ 
frame ma possiamo provare a fare 
qualcosa di analogo con uno ZX 
Spectrum con 48 kbyte di memoria. 

Naturalmente il testo da esamina¬ 
re non dovrà essere troppo lungo, in 
generale non più di 4-5 pagine. 

Il programma fornisce alla fine 
l’elenco delle parole usate in ordine 


decrescente di frequenza, col nume¬ 
ro di volte in cui sono state ripetute, 
e il numero totale di parole compo¬ 
nenti il testo esaminato. 

Per comodità, il testo viene intro¬ 
dotto frase per frase. Per segnalare 
la fine della fase di input, occorrerà 
introdurre come ultima stringa un 
asterisco. 

Come possibile modifica al pro¬ 
gramma, si segnala quella di ordina¬ 
re alfabeticamente le parole usate (e 
raccolte nel vettore stringa A $): ba¬ 
sta che nella routine di riordinamen¬ 
to si operi sugli elementi di A $ inve¬ 
ce che su quelli di N (vettore numeri¬ 
co contenente il numero di ripetizio¬ 
ni). A tale scopo basta modificare la 
linea 2130. 

Le parole del testo vengono collo¬ 
cate nel vettore col metodo Ha- 
shing. 

Il vettore A $ quindi non dovrà 
essere riempito per più dell’80%. 

Ciò significa che le parole usate 
non dovranno essere più di 800, an¬ 
che se potranno essere ripetute 
quante volte si vuole. 

Descrizione del programma 

Le linee 10/30 dimensionano i 
vettori e inizializzano le variabili; le 
linee da 40 a 60 e la linea 80 scom¬ 
pongono il testo in parole, mandan¬ 
do ogni parola alla subroutine 1000 
per là sua collocazione in un elemen¬ 
to del vettore A $. 

La linea 70 rimanda all’input di 
una nuova stringa una volta ultima¬ 
ta l’analisi della stringa introdotta 
precedentemente. 

Le linee da 100 a 260 ordinano il 
vettore A $ in ordine decrescente di 
frequenza, e lo stampano, assieme 
alla frequenza di comparizione e al 
numero totale di parole esaminate. 

L’ordinamento del vettore A $ è 
stato effettuato con il metodo di 
Shell-Metzner. 


) 


10 REM analisi lassi cografica 

11 rem *-*■**■** dai tasti *■****•*■: 

12 REM *-*■*-¥ 

15 REM scomposizione 

20 £>IM R$ I 1000.. 15) : SIN NI100U 


21 print "Introdurre un pari oc 
D alia voitaconcludendoio con un 

segno di interpunzione." 

22 primt "finito L ' inp-u t.. dare 
un asterisco" 

25 LET 1=0 
30 LET J = l: LET K = 1 
4-0 INPUT ZS: IF Z$="*" TMEN GO 
TO 100 

50 IF Z$ <K) =" ” OR Z*tK>="," O 
R Z$(K)*"." OR Z*(K)=";" OR Zf IK 

)="." OR Z((K)=. TMEN GO SUB 1 

000 

60 LET N-K+l 

70 XF K/LEN Z* TMEN GO LO 30 
60 GO TO 50 

100 REM ordinamento e stampa 
105 PRINT RT 10,7j FLASH 1,"RTT 
ENDERE PREGO" 

110 GO SUB 2000 
120 CL5 

190 PRINT "parole:",! 

195 PRINT 

200 FOR G=1 TO 1000 
210 IF RS(G)=" 

THEN GO TO 250 
220 PRINT N(G),A*lG> 

250 NEXT G 
260 STOP 
999 REM 

1000 REM smistamento hashing 

1010 LET 1=1+1 

1020 LET B5=Z$ tJ TO K-13 

1030 LET 0 = K+l. LET K=K+1 

1070 LET H=0 

1060 FOR D=1 TO LEN £•¥ 

1090 LET H=H+CODE b$(Dì 
1100 NEXT C 

1110 FOR E=LEN 6J+1 TO 15 
1120 LET E$=B$ + ” ** 

1130 Wf.VT £ 

1160 IF H > 1000 Tritìi LET M 
1200 IF M=0 THEN LET H=50Q 
1220 IF R$ <H) ss- 

OR R*(H)=B* TMEN GO TO 1260 
1230 LET H =H-1 
1250 GO TO 1200 

1260 LET fl$IH)=6Ì: LET NIH)=NIH) 
*-1 

1270 RETURN 

1999 REM S'****i + **x**i?*a-**ìr* * 

2000 rem so ri di snei l-M etzner 
2010 LET N=1000 

2020 LET F=N 

2070 LET F=!NT {F.'Sf 

2060 IF F -0 l'MEM GO TO 2230 

2090 LET K=N-F 

2100 LET B=1 

2110 LET R-B 

2120 LET S=A+F 

2130 IF N(R> <NlS) THEN GO TO 217 
0 


214-0 LET B=B+1 

2150 IF B>R THEN CO TQ 2070 

2160 GO TD 2110 

2170 LET T =N(fi) : LET T$=ft$(fl> 
2180 LET N(R)=NCS): LET R$lfi)=fii 
(5) 

2190 LET N(5)=T: LET R$(S)=T$ 
2200 LET A=A-F 

2210 IF R < 1 THEN GO TO 214-0 
2220 GO TD 2120 
2230 RETURN 


Listato 1. Il programma di analisi 
testi. 

La routine 1000 colloca al loro 
posto le singole parole col metodo 
Hashing, ricavando dal codice delle 
lettere che le compongono l’indiriz¬ 
zo ove ubicarle. Ogni volta che in un 
elemento del vettore viene collocata 
una parola, il corrispondente ele¬ 
mento del vettore numerico N viene 
aumentato di 1. 

È importante notare che bisogna 
chiudere ogni frase introdotta con 
un segno di interpunzione. 

Le frasi potranno essere lunghe 
quanto si vuole; per comodità di 
battitura e per eventuali correzioni, 
è bene utilizzare una nuova stringa 
per ogni periodo. H 
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Z-80 

Pag 530 L. 26.000 

Cod. 328D Formato 14,5 x 21 


Questi due libri sono stati ideati come 
testi autonomi e completi per imparare la 
programmazione in linguaggio Assembler, 
usando lo Z80 o il 6502 (i microprocessori 
forse più diffusi). 

Scorrevoli da leggere, non richiedono 
alcuna conoscenza di base, ne di 
elettronica generale né di 
programmazione. 

Sono stali progettati, infatti, sotto forma 
di corso che, sistematicamente, passo 
dopo passo, porta il lettore dai concetti di 
base fino alle tecniche di programmazione 
avanzate, al fine di permettergli la 
realizzazione di programmi sempre più 
complessi. 

L’esposizione progressiva, rigorosamente 
strutturata, comporta la risoluzione 
obbligatoria di esercizi attentamente 
graduati al fine di verificare che si sia 
veramente capito quanto presentato? 

Ben si prestano, perciò, a chi si avvicina 
per la prima volta ai microprocessori e ne 
vuole conoscere e capire gli aspetti 
essenziali di programmazione. Per tutti 
coloro che già hanno programmato, 
invece, sarà una vera e propria miniera di 
informazioni sulle caratteristiche specifiche 
del microprocessore d’interesse, 
evidenziandone, nel contempo, vantaggi e 
svantaggi. 
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cuni trucchi 
dello Spectrum 


Spectrum in guardia, 
non hai più segreti ... 


di Tullio Policastro 

Q uesto articolo è una colle¬ 
zione per ZX Spectrum di 
quei piccoli accorgimenti 
di programmazione (e non) che si 
scoprono col tempo e con le prove, 
ma soprattutto collezionando le 
idee più brillanti di diversi libri e 
riviste specializzate. Senza indugia¬ 
re ulteriormente, eccone una decina, 
e chi più ne ha più ne metta. 

1) Capita spesso durante la stesura o 
la correzione di un programma di 
voler fermare l’esecuzione in corri¬ 
spondenza di una certa richiesta di 
input. Ci sono tre possibilità: 

• Se l’input è numerico (non com¬ 
paiono le virgolette) basta risponde¬ 
re con STOP (simbol shift + A), 
oppure causare un errore fornendo 
il nome di una variabile inesistente. 
• Se viene richiesta una stringa (e 
vengono stampate le virgolette) oc¬ 
corre cancellare almeno la prima 
virgoletta e poi usare STOP come 
per gli input numerici. Per cancella¬ 
re le virgolette si può usare EDIT 
(caps shift + 1) o DELETE (caps 
shift + 0). 

• Se viene richiesta una stringa con 
l’opzione LINE non vengono stam¬ 
pate le virgolette e non è quindi pos¬ 
sibile cancellarle ed usare STOP. In 
questo caso occorre usare la freccia 
verso il basso (caps shift + 6) per 
fermare il programma. 

Ovviamente in nessuno di questi ca¬ 
si funziona il tasto BREAK. 

2) Quando, si desidera cancellare 
tutto quel che si è scritto di un’istru¬ 
zione, magari perchè contiene un er¬ 
rore che non si riesce a correggere 


basta premere EDIT (CAPS SHIFT 
+ 1), seguito da ENTER (in pratica 
l’istruzione corrente scende al posto 
di quella che si stava scrivendo, poi 
torna al suo posto invariata). 

3) L’effetto di bloccare la stampa 
per consentire la lettura dello scher¬ 
mo, e di riprenderla semplicemente 
premendo un tasto qualsiasi (senza 
ENTER, ma incluso il singolo tasto 
ENTER), che in certi programmi ve¬ 
diamo segnalato con il messaggio 
“Per seguitare, premi un tasto” 
(“Press a key to continue”), si ottie¬ 
ne inserendo pause nel punto oppor¬ 
tuno del programma. 

Si ricordi che anche le pause di lun¬ 
ghezza programmata (in 1/50 di se¬ 
condo) tipo PAUSE n vengono in¬ 
terrotte, ed il programma riprende 
dal punto immediatamente dopo, 
premendo un tasto qualsiasi, dopo 
l’inizio della pausa. 

4) Lo Spectrum è dotato di un se¬ 
gnale acustico, spesso poco udibile, 
che consente di avvertire la avvenu¬ 
ta pressione di un tasto. Una segna¬ 
lazione acustica migliore, si ottiene 
con POKE 23609, n, con n variabile 

^a piacere fra 5 e 250. Questa istruzio¬ 
ne può essere utilmente inserita all’i¬ 
nizio di un programma. 

5) Il CAPS LOCK, ovvero la scrittu¬ 
ra delle lettere dell’alfabeto in maiu¬ 
scolo, si ottiene con comando diret¬ 
to premendo CAPS SHIFT + 2 (se 
ripetuto, torna alla scrittura in mi¬ 
nuscolo). Per avere la certezza che 
una certa stringa, che il programma 
vuole sia inserita in maiuscolo, sia 
realmente tale senza dover premere i 
tasti suddetti, si può usare POKE 
23658,8 prima della input. 

Il comando contrario è POKE 
23658,0. 

6) Quando si deve ripetere di seguito 
lo stesso carattere basta mantenere 
premuto il tasto per attivare la fun¬ 
zione “REPEAT” automatico se si 


desidera una maggiore velocità e la 
retrocessione del cursore lungo i ca¬ 
ratteri della linea (magari per accel- 
lerare l’avanzamento in EDIT) si 
può intervenire sia sulla velocità di 
avanzamento che sul tempo di ritar¬ 
do di intervento con due POKE: 
POKE 23561, m (con m es. inferiore 
a 35) e POKE 23562, n (con n minore 
di 5). Per tornare alle condizioni 
normali, si inseriscono con gli stessi 
POKE i limiti superiori indicati, op¬ 
pure eseguire new il computer. 

7) Molte volte, quando si devono 
fare delle prove sulla velocità relati¬ 
va di esecuzione di diversi modi di 
programmazione, o di diversi pro¬ 
grammi (ad esempio quelli per ese¬ 
guire delle ricerche in un file, e simi¬ 
li) è utile disporre di un “contase¬ 
condi”, da software. Il particolare 
meccanismo di temporizzazione 
dello Spectrum ed il contenuto di tre 
particolari celle di memoria (la va¬ 
riabile di sistema FRAMES) con¬ 
sentono di fare tale operazione con 
notevole accuratezza. Il meccani¬ 
smo è spiegato nel capitolo 27 del 
manuale (si noti però che nel testo 
italiano c’è un piccolo errore: nel 
programmino che viene descritto, di 
tre sole istruzioni, manca un FNu(), 
che deve essere ripetuto due volte). 
Questo è il programmino esatto: 
10DEF FNm(x,y)=(x+y+ABS(x- 
y))/2 

20DEF FNu()=(65536 ★ PEEK 
23674+256 ★ PEEK 23673 ★ 
PEEK 
23672)/50 

30DEF FNt()=FNm(FNu(),F- 
Nu()) 

Queste tre istruzioni (i numeri di 
riga possono ovviamente essere di¬ 
versi) si possono inserire ovunque 
nel programma. Immediatamente 
prima della parte di programma di 
cui si vuole misurare la durata di 
esecuzione si inserisce (n° di riga) 
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KE 23674,0 ed immediatamente do¬ 
po il termine del programma di cui si 
vuole misurare la durata si pone un 
... PRINT FNt(). Il valore che viene 
stampato o visualizzato è il tempo, 
in secondi, intercorso fra queste due 
istruzioni. 

8) Il BASIC Sinclair si presta all’uso 
particolare della funzione logica 
AND in espressioni del tipo a$ 
AND a. Tale istruzione ritorna 
stringa nulla se a = 0 o stringa a$ se a 
è diverso da zero, si può utilizzare 
quindi per stampare due messaggi 
alternativi in corrispondenza a due 
situazioni, senza bisogno di impie¬ 
gare IF...THEN. Se a$ a b$ sono i 
due messaggi, basta trovare un’e¬ 
spressione da sostituire a c (nell’i¬ 
struzione che segue) e che assuma in 
un caso il valore zero, nell’altro un 
valore diverso da zero: 

PRINT a$ AND c + b$ AND c 

9) Talvolta si può desiderare che una 
certa parte del listato risulti “invisi¬ 
bile”, perchè ad esempio non si vuo¬ 
le che altri possano vedere come è 
scritto il programma od una parte di 
esso. L’esistenza del colore bianco 
anche per l’INK permette di ottene¬ 
re quasi interamente tale scopo, 
operando in questo modo: 

• Mediante un LIST n (seguito da 
SPACE per impedire lo scroll) si 
porta il cursore davanti alla riga a 
partire dalla quale si vuole impedire 
la lettura del listato; con EDIT 
(CAPS SHIFT + 1) si fa scendere la 
riga stessa in calce al quadro. 

• Si prende nota del numero della 
ultima riga della parte che si vuole 
rendere “invisibile”. 

• Si passa in modo “E”, premendo 
entrambi i tasti di SHIFT allo stesso 
tempo; quindi si preme CAPS 
SHIFT+7 (equivale ad INK 7: se il 
colore del fondo (PAPER) fosse di¬ 
verso, ossia non bianco, si sostitui¬ 
sca il relativo numero del colore al 
posto del 7), ed infine ENTER: la 
riga torna al suo posto; si nota che 
tutto il resto del programma è spari¬ 
to, eccetto il numero della riga. 

• Si esegua LIST numero dell’ulti¬ 
ma riga da “occultare” + ENTER e 
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poi EDIT (CAPS SHIFT+1). La ri¬ 
ga in questione apparirà al fondo del 
quadro. (Quindi il listato è quasi in¬ 
visibile: infatti se si richiama con le 
funzioni di editing, ossia le frecce e 
l’EDIT, una qualsiasi istruzione 
“invisibile”, questa diventa visibile 
in fondo al quadro; il listato occulto 
si può quindi leggere una riga per 
volta). 

• Andate con la “freccia a destra” 
(CAPS SHIFT-l-8) sino al termine 
della riga editata. 

• Tornate in modo “E” (i due tasti 
SHIFT insieme), e infine premete 
CAPS SHIFT+0 (equivale a INK 0: 
variare se del caso) e poi ENTER: le 
righe del listato successive all’ultima 
da occultare torneranno visibili. 

Se si vuole rendere “invisibile” in 
una sola volta tutto il programma, 
esiste un altro sistema più semplice: 

• Impostate una istruzione n° 1 co¬ 
me segue: 1/INV VIDEO (=CAPS 
SHIFT+4)/PRINT/TRUE VI¬ 
DEO (=CAPS SHIFT+3)/”/”/ 
ENTER (senza le barre di separazio¬ 
ne, ovviamente). 

• Eseguite EDIT (CAPS SHIFT+1) 
e poi: TRUE VIDEO (= CAPS 
SHIFT+3)/CAPS SHIFT+8/INV 
VIDEO (=CAPS SHIFT+4)/EN- 
TER (il ronzio che sentirete a un 
certo punto, che normalmente signi¬ 
fica memoria piena, qui è regolare). 

- 11 listatosi riduce ad un “1”. Il 231 di 
BORDER, o il 234 di REM (notate 
che ho citato codici di comandi, per¬ 
chè quando il tasto verrà azionato 
solitamente si è in modo “K” ed il 
significato del tasto premuto è quel¬ 
lo del comando inscritto). 

Il programma eseguirà allora un 
sottoprogramma in l.m. e, automa¬ 
ticamente, il NEW. Ora si imposterà 
una riga: 

1 PRINT “Questo è l’esempio” se¬ 
guita da ENTER; 
poi EDIT (CAPS SHIFT+1), e a 
questo punto si inserirà immediata¬ 
mente dopo l’I del n° di riga REM 
(prima del PRINT, nell’esempio), e 
si premerà ENTER. Infine si rende¬ 
rà operativo il tutto con RANDO- 
MIZE USR 65110 + ENTER. (Per il 


16 Kbyte, 32329 invece di 65110, os¬ 
sia a + 1 1). 

Quando si premerà, in modo 
“K”, il tasto prescelto, la riga 1 ap¬ 
parirà per un istante al fondo del 
quadro e verrà eseguila (nell’ 1 REM 
impostata come detto sopra, si inse¬ 
rirà il comando che interessa). 

Quando si vorrà annullare l’effet¬ 
to del “tasto controllo” così reso 
attivo, si imposterà RANDOMIZE 
USR 65100 + ENTER (32319 per il 
16 Kbyte). (Ricordarsi di farlo al 
termine dell’uso). 

L’operazione è particolarmente 
utile per stampare a richiesta il nu¬ 
mero di byte disponibili in memoria 
in qualsiasi istante. L’istruzione 1 
assume allora la forma: 

1 REM PRINT“Byte liberi:”;65365 
- (PEEK 23653 + 256* PEEK 
23654) 

In realtà non sono disponibili, di 
questi, un limitato numero di byte 
posti nel “machine stack” e nel 
“GOSUB stack”; per una lettura 
corretta occorre ricorrere ancora al 
l.m., che permette di leggere l’indi¬ 
rizzo dello “stack pointer”. Memo¬ 
rizzando l’idoneo programmino di 
pochi byte prima del l.m. fornito dai 
DATA di riga 20, ossia con: 

10 CLEAR a-14 (65085 per il 48 
Kbyte; 32304 per 16 Kbyte) 

15 DATA 33, 0, 0, 57, 237, 91, 101, 
92, 167, 237, 82, 229, 193, 201 


e partendo da 65086 (=a—13; 32305 
per il 16 Kbyte) come valore iniziale 
per il ciclo FOR ... NEXT di riga 50, 
si realizzano le modifiche necessa¬ 
rie. La riga 1 assume allora la forma: 
1 REM PRINT “Byte liberi”; USR 
65086 (per 48/16 Kbyte: 65086, risp. 
32305). 

In questo modo è possibile otte¬ 
nere un solo tasto controllo definito 
dall’utente per volta. 

Inoltre, questo metodo si presta 
solo per comandi (istruzioni) non 
troppo complessi, preferibilmente 
“monolinea”; e per stampare mes¬ 
saggi non più lunghi di 1 riga (32 
caratteri). 

10) Per sapere come sono formati i 





vari caratteri stampabili dello Spec- 
trum, si può utilizzare il seguente 
programmino (che va a leggere il 
contenuto a 18 byte) a partire da 256 
locazioni più avanti di quella (nor- 


malm. 15616) dalla variabile di siste¬ 
ma CHARS, (posta nei due byte 
23606/7) e visualizza la matrice di 
punti con spazi bianchi e/o inversi. 


Listato 1. // listato BASIC. 


10 INPUT "CaraUere";a$: CLS : 
IF 3 $ = ••" THEN GO TO 200 
20 LET C=CODE 3$-32 
30 FOR i=0 TO 7. LET n=PEEK (1 
3616+i+B*C ) 

4-0 DIM b<8); LET 3*126 

50 FOR J=1 TO 8: IF n<a THEN G 


LET n =n -3 


O TO 70 

60 LET b(j)=1: 

*0 THEN GO TO 80 

70 LET 3=3/2: NEXT 
80 FOR j=l TO 8: LE 
b(J)=l THEN LET 3$="_ 

©0 PRINT RT ©+i,10+d;3$ 


4 - 


a $ = 


IF n 


•' ** : IF 

NEXT 


'100 NEXT i: GO TO 10 


r 
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COMMODORE VIC 20/C 64 

Disabilitazione List: 
la nuova funzione di Append 

di Alessandro Guida 


A volte è utile poter disabilitare alcune funzioni, si 
pensi ad un programma dimostrativo che non si vuo¬ 
le venga fermato o listato. 

Vedremo come è possibile ottenere ciò con una 
sola istruzione POKÉ. 

Questo mese abbiamo anche la collaborazione di 
un lettore, il Sig. Lucio Iacono che illustra un proce¬ 
dimento per poter accodare ad un programma,un 
altro caricato da nastro o disco. 


Disabilitazione funzioni sul VIC e C 64 

Nella tabella 1 sono riportati i valori da introdurre 
nelle opportune locazioni per disabilitare alcune fun¬ 
zioni del computer. 

La colonna centrale riporta i valori per la disabili¬ 
tazione, mentre quella a destra riporta i valori nor¬ 
mali. Queste istruzioni di POKE possono essere inse¬ 
rite nei programmi o date in modo diretto. 

1) Disabilitazione STOP RESTORE e LIST. Il trucco 
per disabilitare lo STOP è quello di cambiare il conte¬ 
nuto del vettore di Test-STOP $0328, $0329. Questo 
vettore contiene l’indirizzo di una subroutine che 
controlla se questo tasto è stato premuto. Il rimedio è 
quindi cambiare l’indirizzo di partenza in modo che 
non venga più effettuato il controllo. Questa modifi¬ 
ca va fatta tenendo presente che al ritorno dalla 
subroutine di Test-STOP l’accumulatore non deve 
contenere 0 e il registro Y deve rimanere invariato. 
Con il POKE suggerito nella tabella 1 otteniamo la 
prima parte, ma il registro Y verrà modificato. 

Qual’è il risultato? E presto detto. Poiché all’inter¬ 
no della routine di LIST è chiamata la subroutine di 
Test-STOP avremo che, essendo cambiato il registro 
Y, che serve da puntatore nella linea Basic da listare, 
il listato si tradurrà in una sequenza di caratteri 
insignificanti. A questo va aggiunto che il tasto di 
RESTORE per espletare la sua funzione ha bisogno 
di essere premuto insieme a quello di STOP. Perciò 
anche il RESTORE resterà inibito. 

2) Disabilitazione RESTORE. Anche per il tasto RE¬ 
STORE esiste un vettore che contiene l’indirizzo del¬ 
la routine da eseguire nel caso questo venga premuto. 
Questo vettore è il $0318, $0319 nel quale metteremo 
l’indirizzo di una locazione contenente una istruzio¬ 
ne di ritorno RTI. 


Funziona 

dltubll. 

DliablllUzIona 

Riabilita zlona 

1) STOP, 
RESTORE 

LIST 

POKE 808.100 

POKE 808,225 

POKE 808.112 (VIC 20) 
POKE 808,237 (C 64) 

2) RESTORE 

POKE 792.90 

POKE 793.203 

POKE 792,173 (VIC 20) 
POKE 793.240 

3) SAVE 

POKE 818.PEEK (816) 
POKE 819.PEEK (817) 

(VIC 20 e C 64) 

4) LIST 

POKE 775,0 

POKE 775,0 

POKE 775,119 (VIC 20) 
POKE 775,167 (C 64) 


Tabella 1. I valori necessari per la disabilitazione di 
alcune funzioni sul VIC20 e sul C64. 


3) Disabilitazione S/4 VE. Altri due interessanti vettori 
nel VIC (o 64) sono quelli che contengono gli indiriz¬ 
zi delle routine di LOAD e SAVE. Rispettivamente 
$0330, $0331, e $0332, $0333. È evidente che metten¬ 
do nel vettore di SAVE l’indirizzo della routine di 
LOAD la prima funzione diventerà inutilizzabile. 

4) Disabilitazione LIST. Per finire vediamo l’ultimo 
POKE che blocca del tutto l’istruzione di LIST. Per 
capirne il funzionamento ricordiamo che le linee ba¬ 
sic sono conservate in maniera codificata nella me¬ 
moria del computer. Infatti, ogni parola chiave (co¬ 
mando) del BASIC è tradotto in un codice di un solo 
byte. Perciò la routine di LIST necessita, a sua volta, 
di una subroutine che ritraduca questi codici in co¬ 
mandi BASIC. Inutile dire che l’indirizzo di partenza 
di questa routine è modificabile, in quanto conserva¬ 
to nel vettore $0306, $0307. Con il valore in tabella si 
avrà un RESTORE ogni volta che si tenterà di effet¬ 
tuare un listato. 

A questo punto un comando di LIST ci mostrerà lo 
schermo vuoto, ma niente paura, il programma è solo 
nascosto sotto il nuovo principio della memoria. Sa¬ 
rà ora possibile caricare il programma (coda) dal 
nastro con il solito LOAD “Nome” oppure solamen¬ 
te LOAD. 

Caricato il programma e verificato che giri regolar¬ 
mente basterà battere: 

POKE 43,1 : POKE 44,16 

per riportare la memoria alle dimensioni iniziali. 

A! comando LIST apparirà ora tutto il program¬ 
ma completo delle due parti, come se fosse stato 
scritto tutto insieme. 

Questo procedimento può essere ripetuto anche 
più volte avendo l’accortezza di usare per ogni pezzo 
che si aggiunge numeri di linea sempre maggiori di 
quelli esistenti. 

Il programma così composto potrà essere usato e 
salvato come un qualunque altro programma. 

È appena il caso di ricordare che usando le espan¬ 
sioni di memoria occorre modificare conseguente¬ 
mente le POKE 43 e 44 dell’ultimo comando. 
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Disabilitazione List: 

la nuova funzione 
_di Append 


A questo scopo, per evitare errori basta battere 
una: 

PRINT PEEK (43), PEEK (44) 
prima di cominciare e prendere nota della risposta 
che andrà poi inserita nelle ultime POKE per ripristi¬ 
nare le condizioni iniziali. 


Se avete scoperto qualche piccolo segreto del VIC 
20 (o del C64) o se avete qualche trucchetto per 
facilitare la programmazione comunicatelo agli 
altri lettori, inviando un articolo al seguente indi¬ 
rizzo: 

Alessandro Guida - c/o Personal Software - Via 
Rosellini, 12 - 20124 Milano 


COMMODORE VIC 20_ 

Come realizzare la funzione Append 

di Lucio Iacono 

La lettura dell’interessantissimo articolo a firma di 
Luciano Gemme sul n. 8/9 di Personal Software è 
stata come il classico colpo di fulmine: visto che tutto 
il trucco della memorizzazione delle istruzioni del 
VIC 20 è concentrato nei “link” e che questi possono 
essere letti e modificati con la massima facilità, e visto 
che è così facile recuperare un programma andato 
perso per un malaccorto comando NEW, mi sono 
chiesto se era possibile qualche altra manipolazione 
sui programmi residenti nella memoria del VIC 20. 

Man mano che si scrivono i programmi il sistema 
operativo del VIC provvede a memorizzarli con una 
tecnica che sembra complessa ma in realtà è assai 
semplice. La prima istruzione viene memorizzata 
scrivendo nei primi due byte liberi della memoria 
(4097 e 4098) l’indirizzo di inizio della 2 a istruzione. 

In tutti i suoi calcoli interni il VIC usa il primo byte 
per la parte bassa del numero e il secondo per la parte 
alta: per ricostruire il valore decimale basta fare: 
PEEK(4097)+PEEK(4098) ★ 256. 

Poi viene memorizzato il numero di linea, sempre 
con lo stesso sistema nei due byte successivi, poi il 
testo opportunamente compattato. 

I comandi BASIC sono rappresentati con codici 
(chiamati TOKEN). Ad esempio il RETURN è codi¬ 
ficato con uno 0. 

Vengono poi posti a 0 i due byte immediatamente 
successivi per indicare la fine del programma. Con¬ 
temporaneamente, ad ogni istruzione battuta, viene 


incrementato il contenuto dei due byte 45 e 46 che 
puntano l’indirizzo della prima cella di memoria libe¬ 
ra dopo i due zeri di fine programma e quindi l’inizio 
dell’area di memorizzazione delle variabili. 

Quando invece si carica un programma registrato 
su nastro il contenuto del nastro viene depositato a 
cominciare dalla locazione puntata dalle celle 43 e 44 
che contengono invece l’inizio della memoria dispo¬ 
nibile; questo spiega perchè caricando da nastro si 
perde qualunque programma già residente in memo¬ 
ria. 

Però se si sposta il puntatore costituito dal conte¬ 
nuto delle celle 43 e 44 in modo che punti oltre la fine 
del programma già residente in memoria, le istruzio¬ 
ni riversate dal nastro si andranno a depositare in 
coda al programma esistente. 

Ecco così realizzata la funzione “APPEND” pre¬ 
sente solo sugli elaboratori più grossi, che consiste 
appunto nella possibilità di accodare, appendere un 
programma ad un altro già residente in memoria. 

Vediamo ora come procedere, passo per passo. 

Per prima cosa occorre digitare e salvare su nastro 
la parte terminale, la coda, del programma, badando 
che i numeri di linea siano tutti maggiori di quelli del 
programma cui dovrà essere appesa. 

Verrà poi digitata la parte anteriore del program¬ 
ma, la testa, nel solito modo. Finita questa fase oc¬ 
corre spostare il limite di inizio della memoria all’al¬ 
tezza della fine del programma battendo: 

POKE 43, PEEK(45)—2: POKE 44, PEEK (46). 

11—2 serve per tenere conto dei due zeri aggiunti e 
per poter scrivere le nuove istruzioni sopra di essi, 
altrimenti la presenza dei due zeri segnalerebbe la 
fine del programma. ■ 


i ' 

A £230 ST- P >=5H' M’> :P=P+ 1 

2240 IFM=LSTHENS1*="" :S2*=" " :i3OTO2260 
■ 2250 S1#="•":S2*="'"iIFSHCMJ=4THENS1*= 
I :S2*=" " 

2260 ST*=Sl*+OP*>N-2>+S*<M>40P*<N-l>+S 
2* :N=N-2 :OP*> H *=ST*:N=N+1 
2270 11=11+1:GOTO2210 

2230 PPINT"saia OTflZIONE "FU *"S“ :PRINTR 

I * 

2230 PP I II! ".Sfili OTOCIONE " 02* " ffl" : PRINTS 

'I T; * 

jg 2 300 RETIJPH 

I 3000 PR INT "ìiHSlsTF'Et't 1 OURLSIHSI TRSTO P 
ER CONTINURFEP" 

Et 3010 GETR* : IFP r=" "THEH3010 


3020 PETUPN 
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Come proteggere 
i vostri programmi 

di Marcello Spero 


Molti programmi commerciali per lo Spectrum 
sono concepiti in modo da renderne impossibile l’in¬ 
terruzione del funzionamento, e quindi del program¬ 
ma. Trattandosi normalmente di programmi in lin¬ 
guaggio macchina è logico che il tasto BREAK non 
abbia effetto e che risultano quindi automaticamente 
protetti. 

Meno ovvio è il loro comportamento durante il 
caricamento da cassetta: se, infatti, tentiamo di inter¬ 
romperlo premendo BREAK o lo spazio, otteniamo 
immediatamente un NEW, perdendo tutto quanto 
era già stato immagazzinato in memoria. In questo 
modo il programma è completamente “inespugnabi¬ 
le”. 


r 

«PER ACCORCIARE I TEMPI» 

del GRUPPO EDITORIALE 
JACKSON 

è il seguente : 



Ovviamente non possiamo conoscere con esattez¬ 
za il metodo usato per ottenere questo effetto; esiste 
comunque un modo alla portata di tutti per rendere i 
programmi, anche scritti in BASIC, refrattari al 
BREAK. 

La variabile di sistema ERR SP determina il com¬ 
portamento della macchina in caso di errore. Essa, 
infatti, contiene l’indirizzo occupato all’interno della 
catasta di sistema (Machine Stack) dal puntatore alla 
routine di errore. Al verificarsi di un errore, segnala¬ 
to dal cambiamento di valore della variabile ERR 
NR, il sistema salterà alla routine indicata, che pro¬ 
durrà un appropriato messaggio diagnostico. Tutto 
questo vale anche per il BREAK, che viene conside¬ 
rato un errore a tutti gli effetti. 

Per modificare questo meccanismo occorre cam¬ 
biare il valore del puntatore contenuto nella catasta; 
mettere le mani nella catasta del sistema è però un’o¬ 
perazione sconsigliabile: meglio fare in modo che 
ERR SP punti ad una coppia di byte, fuori dalla 
catasta, contenente l’indirizzo di una routine di no¬ 
stra scelta. 

Dobbiamo ora trovare una routine adatta ad esse¬ 
re eseguita in caso di errore. Volendo ottenere la 
scomparsa di tutto quanto c’è in memoria la scelta 
migliore è quella della routine che parte dall’indirizzo 
0. Si tratta dell’inizializzazione del sistema, e viene 
eseguita ogni volta che accendiamo la macchina: ope¬ 
ra un azzeramento di tutta la memoria, l’inizializza- 
zione delle variabili di sistema e della grafica definibi¬ 
le. 

Adottando questa soluzione in caso di errore otter¬ 
remo il medesimo effetto di uno spegnimento e riac¬ 
censione del calcolatore. 

Tutto ciò che dobbiamo fare è scegliere una coppia 
di locazioni cui far puntare ERR SP; la soluzione più 
semplice è utilizzare gli indirizzi 23728 e 23729, che 
costituiscono praticamente una variabile di sistema 
inutilizzata e contengono già il valore 0, che è appun¬ 
to quello che ci serve. 

Inserendo all’inizio di un programma le istruzioni 
10 POKE 23613, 23728-256 ★ INT (23728/256) 

20 POKE 23614, INT (23728/256) 

(dove 23613 e 23614 sono gli indirizzi della variabile 
ERR SP) otteniamo un programma “che non perdo¬ 
na”, ossia che in caso di errore si autodistrugge: 
attenzione quindi a proteggerlo con adeguate istru¬ 
zioni di controllo da condizioni di errore che potreb¬ 
bero verificarsi durante il suo funzionamento. 

Tutto questo riguarda naturalmente i programmi 
BASIC poiché, come abbiamo detto, i programmi in 
linguaggio macchina sono per loro natura insensibili 
all’azione del BREAK ed immuni da condizioni di 
errore (o, piuttosto, non si accorgono degli eventuali 
errori in cui incorrono). 
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Il problema della protezione dall’interruzione si 
ripresenta tanto per il BASIC che per il linguaggio 
macchina nel caso del caricamento da cassetta; inuti¬ 
le, infatti, impedire il BREAK del programma in 
esecuzione, se è possibile listarlo prima che inizi a 
funzionare semplicemente interrompendone il cari¬ 
camento pochi istanti prima che termini. L’unico 
modo di aggirare questo ostacolo è far sì che all’inizio 
del caricamento, cioè prima che il programma vero e 
proprio inizi ad essere caricato, la variabile ERR SP 
venga portata al valore che ci interessa. Procediamo 
perciò al salvataggio del programma non con: 

SAVE “programma” 

ma con: 

SAVE “programma” CODE 23552,L 

dove 23552 è l’indirizzo di inizio dell’area delle varia¬ 
bili di sistema, mentre il numero L di byte da salvare 
sarà dato da: 

PEEK 23653+256 ★ PEEK 23654-23552 
comprendendo in questo modo tutta la memoria fino 
all’inizio della zona libera, segnata dalla variabile 
STKEND, che si trova appunto all’indirizzo 23653. Il 
numero di byte da salvare potrebbe in realtà essere 
inferiore, ma è meglio essere prudenti; anzi, tenetevi 
abbondanti anche sulla cifra che otterrete nel modo 
visto sopra: meglio salvare qualche byte senza impor¬ 
tanza che perderne uno essenziale. 

Così facendo avremo all’inizio della nostra regi¬ 
strazione proprio le variabili di sistema. Per compiere 
tutta questa operazione, però, il programma deve 
essere fermo, e quindi ERR SP deve avere il suo 
valore originale; inoltre abbiamo bisogno di un auto 
start al termine del caricamento, o tutto questo lavo¬ 
ro sarebbe inutile. Soluzione: 

POKE 23613, 23728 256 ★ INT(23728/256): 

POKE 23614, INT(23728/256): SA VE “program¬ 
ma” 

CODE 23552,L:GO TO 1 

(attenzione: non RUN, che reinizializza ERR SP!) 
e il gioco è fatto. 

Purtroppo non è possibile in questo caso l’uso di 
VERIFY per controllare la registrazione: infatti, ap¬ 
pena terminato il salvataggio, il programma va in 
esecuzione e tentando di fermarlo con BREAK (am¬ 
messo che sia un programma BASIC) se ne provoca 
la scomparsa. 

Caricando un programma in questo modo ottenia¬ 
mo altri vantaggi, legati al fatto che tutte le variabili 
di sistema assumono il valore che avevano al momen¬ 
to del salvataggio; otterremo quindi il ripristino 
automatico di determinati attributi, dell’éventuale 


“bip” di tastiera, e così via. Attenzione, invece, per la 
RAMTOP: anche qui si ha il ripristino automatico 
del valore in uso al momento del salvataggio, ma se 
questo è diverso da quello impostato al momento del 
caricamento il sistema rischia di saltare, e comunque 
ci si trova in una situazione di instabilità che conviene 
in ogni caso evitare. Per scongiurare situazioni di 
questo tipo i programmi che usano valori della 
RAMTOP diversi da quello normale dovrebbero 
avere come prima istruzione: 

10 CLEAR 
seguita da: 

20 POKE 23613, 23728-256 ★ INT(23728/256) 

30 POKE 23614, INT(23728/256) 

poiché CLEAR, come RUN, reinizializza ERR SP. 

In alternativa è possibile sostituire, nel comando 
multiplo di salvataggio visto prima, GO TO 1 con 
:RUN: POKE 23613, 23728-256 ★ INT (23728/256): 
POKE 23614, INT(23728/256) 
che dà lo stesso effetto, ma rende veramente enorme 

11 comando stesso. 

Un’ultima considerazione da fare riguarda l’uso di 
questo metodo di protezione con i programmi BA¬ 
SIC. Oltre alle già CLEAR e RUN, infatti, anche 
altre istruzioni come ad esempio GO SUB E RE¬ 
TURN ripristinano il valore normale di ERR SP, 
rendendo necessario un uso intensivo di istruzioni 
POKE all’interno e dopo ciascuna subroutine per 
mantenere inalterata la protezione. In pratica questo 
pone dei limiti alla protezione di lunghi programmi 
BASIC, cui è più opportuno applicare una versione 
particolare di questa tecnica: il blocco del program¬ 
ma per mezzo di una parola chiave. 

Il sistema è molto semplice: salvando con il sistema 
visto, per garantire la protezione durante il carica¬ 
mento, un programma BASIC le cui prime istruzioni 
sono: 

10 INPUT LINE a$ 

20 IF a$ O “parola chiave” THEN GO TO 10 
30 GO SUB 9999 

cui farà riscontro, in linea 9999, una subroutine fitti- 
zia composta da un’unica linea: 

9999 RETURN 

(Questo per evitare due voluminose POKE; in alter¬ 
nativa, se il programma non contiene dati, cosa poco 
probabile visto che vogliamo proteggerlo, possiamo 
sostituire la linea 30 con l’istruzione): 

30 CLEAR 

In questo modo otteniamo una protezione durante il 
caricamento e fino al momento in cui l’utilizzatore 
avrà impostato la corretta parola chiave. 

Superato questo punto il programma potrà essere 
interrotto e listato normalmente. In questo modo 
viene impedito l’accesso e la manomissione del pro¬ 
gramma da parte di persone non autorizzate. 
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SHARP _ 

Tre nuove istruzioni 

di Mauro Lenzi 


Sperando di fare cosa gradita ai molti 
utilizzatori di pocket computer, cominciamo da 
questo numero la pubblicazione di una sezione 
fissa dedicata in particolare alle programmabili 
Sharp. Nei primi articoli il nostro collaboratore 
bolognese Mauro Lenzi si soffermerà sul 
modello PC-1251 introducendo anche alcune 
caratteristiche inedite di questa interessante 
macchina. 


Ciò che mi propongo di fare, in questa rubrica, è di 
“vivisezionare” un computer, penetrando nei mean¬ 
dri più reconditi del suo sistema operativo. 

10 tratterò principalmente del pocket-computer 
Sharp PC-1251, tuttavia i sistemi e le astuzie impiega¬ 
ti per svelarne i misteri, possono venire applicati alla 
maggior parte dei computer in commercio. 

Le principali caratteristiche che occorrono per di¬ 
ventare dei buoni “computer-chirurghi” sono la pa¬ 
zienza e l’intuito: è infatti procedendo per tentativi 
che ho potuto scoprire tre nuove istruzioni presenti 
nel computer, ma non segnalate nei manuali di istru¬ 
zioni! 

Queste tre istruzioni consentono di Programmare 
il computer in linguaggio macchina!! 

Vediamo di esaminarle una per volta. 

Proviamo a digitare PEEK 10000, seguito natural¬ 
mente dal tasto enter: clamorosamente, invece di 
apparirci la scritta ERROR 1 come dovremmo aspet¬ 
tarci, compare il numero 39. Se facciamo altre prove, 
cambiando il numero che segue l’istruzione PEEK, 
sul display vengono mostrati altri numeri. Abbiamo 
appena scoperto che il nostro computer “riconosce” 
l’istruzione PEEK, che, pur essendo molto utile e 
conosciuta, non è segnalata sul manuale. 

Scoperta l’istruzione PEEK, possiamo aspettarci 
che esista anche la corrispondente istruzione POKE; 
proviamo a digitare: POKE 50000, 92. 

11 computer non segnala alcun errore. Come con¬ 
troprova digitiamo: PEEK 5000; sul visore appare il 
numero 92, che è appunto il numero che abbiamo 
precedentemente immesso nella locazione di memo¬ 
ria 50000 con il comando POKE. 

Utilizzando esclusivamente queste due istruzioni 
in seguito faremo cose inimmaginabili, come per 
esempio fare comparire dei caratteri “cinesi”, creare 
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dei numeri di linea decimali oppure rendere “invisibi¬ 
li” alcune linee di un programma. 

Con queste due istruzioni è inoltre possibile fare 
dei programmi in linguaggio macchina. Ma come è 
possibile farli eseguire al computer? 

L’istruzione che viene utilizzata a questo scopo nel 
linguaggio BASIC si chiama CALL. Anche questa 
istruzione, come le due’ precedenti, in teoria non 
dovrebbe esserci, non essendo annotata sul manuale. 

Digitiamo CALL 12: anche questa volta non ci 
perviene alcuna segnalazione di errore ed il computer 
la esegue; tuttavia, non essendoci niente di “interes¬ 
sante” nella locazione 12 e seguenti, il display non 
segnala niente di particolare. 

Per coloro che desiderino avventurarsi nel difficile 
mondo del linguaggio macchina ho già detto abba¬ 
stanza; adesso sta alla loro intraprendenza e alla loro 
pazienza proseguire le ricerche in questa direzione. 

Invece consiglio a tutti coloro che non abbiamo già 
una discreta conoscenza di un linguaggio assembler o 
macchina, di “dimenticarsi” questa istruzione perchè 
procurerebbe soltanto fastidi. Se, per esempio dopo 
esserci assicurati di non avere in memoria alcun pro¬ 
gramma utile che desideriamo conservare, digitiamo 
CALL 16000, il computer va in “tilt”. Sul display 
compare solo la scritta “busy”, ma qualunque tenta¬ 
tivo di fermarlo, perfino spegnendolo, si rivelerà in¬ 
utile. A questo punto l’unico modo per farlo “rinsa¬ 
vire” è di RESETtarlo, ciò comporta l’azzeramento 
di tutta la memoria RAM. 

La scoperta di queste istruzioni ci ha ormai aperto 
la via per accedere al sistema operativo del computer, 
la prossima volta scopriremo come viene organizzata 
la memoria ed altre pseudo-istruzioni misteriose. ■ 
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TEXAS TI99/4A 

Il movimento del TI BASIC 

di Sergio Borsani 


Il TI99/4A, come è noto, può essere programmato 
in TI BASIC, Extended BASIC, Assembler, Pascal e 
Logo che, verso la fine di quest’anno, uscirà nella 
versione italiana. Per i giochi o i programmi didattici 
che richiedono un intenso movimento il più adatto è 
l’Assembler che più si avvicina al linguaggio macchi¬ 
na ma che tuttavia è difficile da usare. I primi due 
linguaggi elencati all’inizio invece sono di gran lunga 
i più usati e si differenziano notevolmente per quanto 
riguarda la capacità di creare oggetti in movimento. 
L’Extended BASIC infatti è provvisto di sottopro¬ 
grammi, richiamabili con istruzioni CALL..., rivolti 
espressamente alla grafica e fornisce così la possibili¬ 
tà di creare un ambiente molto simile a quello dei più 
comuni videogames. 

Mentre ho intenzione di illustrare questo argomen¬ 
to in un prossimo numero, desidero ora soffermarmi 
sul TI BASIC. 

Questo linguaggio, residente nella console, è poco 
adatto alle animazioni grafiche e per utilizzarlo a 
questo scopo è necessario seguire alcune regole: (a), 
gli oggetti che si muovono devono essere piccoli, 
preferibilmente formati da un solo carattere; (b), il 
loro numero deve essere limitato; (c), i cicli che sono 
adibiti al movimento devono contenere solo le istru¬ 
zioni essenziali, tutte le altre dovranno essere poste 
all’interno di essi. 

Il movimento ovviamente si crea stampando uno 
space, CHR$ (32), nella vecchia posizione e collocan¬ 
do lo stesso oggetto in una posizione nuova. L’effetto 
è inferiore se si invertono le istruzioni cioè se prima si 
stampa il carattere nella nuova posizione e poi si 
cancella nella vecchia. Il movimento non può essere 
uniforme ma apparirà a scatti poiché l’oggetto balza 
da una riga o da una colonna ad un’altra. Per ottene¬ 
re una maggiore velocità, i salti potranno compren¬ 
dere più di una riga o di una colonna a scapito della 
già precaria uniformità del movimento. 

Se l’oggetto è formato da più di un carattere esso si 
sposterà parte per parte e l’andatura assumerà un 
aspetto ondeggiante poiché il più delle volte alcuni 
caratteri che formano l’oggetto occuperanno già la 
nuova posizione mentre altri dovranno ancora essere 
trasferiti. 

Anche se gli oggetti sono piccoli e formati da un 
solo carattere, ricordiamo che un programma TI 
BASIC può spostarli soltanto uno alla volta. E evi- 


100 CALL. CLEAR 
110 CALL CHAR(128,"F"> 

120 CALL COLOR (13,2., 2) 

130 X1=16 
140 Y1=12 

150 CALL HCHAR(Y1,X1,128) 

160 CALL KEY(0,K,S! 

170 IF 8=0 THEN 160 
IRÒ IF K=69 THEN 230 
190 IF K=88 THEN 260 
200 IF K=83 THEN 290 
210 IF K=6S THEN 320 
220 GOTO 160 
230 Y2=Y 1 1 
240 X 2=X1 

250 IF Y2<1 THEN 160 ELSE 350 
260 Y2=Y1+1 
270 X2=X1 

280 IF Y2>24 THEN 160 ELSE 350 
290 X2=X1-1 
.300 Y2=Y 1 

310 IF X2<1 THEN 160 ELSE 350 
320 X2=X1+1 
330 Y2=Y1 

340 IF X2>32 THEN 160 
350 CALL HCHAR(Y1,X1,32) 

360 CALL HCHAR(Y2,X2,128) 

370 X1 = X 2 
380 Y1=Y2 
390 GOTO 160 


Listato 1. Un semplice esempio di animazione. 


dente che se si volesse creare un gioco come quello del 
calcio, dove è richiesto il movimento della palla e di 
molti giocatori, per spostare la linea d’attacco il pro¬ 
gramma dovrebbe compiere numerosi cicli per le 
proprie mosse e quelle dell’avversario rendendo l’ese¬ 
cuzione di una lentezza esasperante. Una complica¬ 
zione deriva anche dal fatto che un carattere cancella 
un altro sul quale viene stampato, pertanto il ciclo 
che crea il movimento deve contenere le istruzioni 
perchè i caratteri non si sovrappongano o per ricrear¬ 
li dopo un’eventuale sovrapposizione. 

Se si desidera controllare il movimento da tastiera 
bisogna inserire l’istruzione CALL KEY. Solitamen¬ 
te si associano i quattro tasti con le frecce ai movi¬ 
menti nelle quattro direzioni; una tipica sequenza di 
istruzioni è quella del listato 1. 

In questo esempio, premendo i quattro tasti con le 
frecce, un quadratino nero si sposta in tutte le dire¬ 
zioni. 

E importante controllare il valore delle coordinate 
ed impedire la stampa quando il numero di riga è 
minore di 1 o maggiore di 24 e quando il numero di 
colonna è minore di 1 o maggiore di 32. 

Il listato 2 è un programma didattico sulle frazioni. 
Si tratta di tagliare da un rettangolo una parte frazio¬ 
naria controllando da tastiera un paio di forbici che 
appaiono sullo schermo. Il tasto (S) le sposta a sini¬ 
stra, il tasto (D) a destra ed il tasto (T) provoca il 
movimento automatico che simula il taglio. Per ogni 
prova sono consentiti due tentativi, dopo due errori 
consecutivi il computer suggerisce la risposta esatta. 
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Al termine dei quesiti viene indicato il livello raggiunto. 

La tecnica di programmazione è conforme ai con¬ 
cetti su esposti. Una complicazione è dovuta al fatto 
che le forbici, formate da due o quattro caratteri, 
partono dall’esterno del rettangolo colorato, vi si 
addentrano lasciando alle spalle la traccia del taglio e 
poi escono dalla parte opposta passando per due 
volte dallo sfondo di un colore a quello di un altro. 

Dopo aver utilizzato il programma, apparirà evi¬ 
dente come le animazioni grafiche siano importanti 
non solo per i giochi, ma trovino anche una loro 
precisa collocazione nei programmi educativi. ■ 


Listato 2. Esempio di animazione applicato alla didat¬ 
tica. 


100 
1 10 
120 
130 
140 
150 
160 
'! 70 
180 
1 90 
200 
210 


240 

250 
260 
270 
280 
290 
30 0 
310 

350 
340 
350 
360 
370 
3 E 0 
390 
400 
41 0 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
330 
340 
55 Ò 
560 
570 
580 
590 

500 
6 10 
020 
630 

£-. ZL 0 

650 

660 

670 

630 

690 


REM PERSONAL SOFTWARE 
RE M ***** ************* 

REM * * 

REM * FRAZIONI * 

REM * * 

REM ******************* 

REM di: Sergio Borsari! 

REM versione: TI BASIC 
CALE CLEAR 

FRINT TAB(11);"FRAZIONI 
CALI. CHAR ( 128, "0" ) 

CALI. CHAR < 129, "0101010101010101 " ) 

A $ = "001018180C0C0607" 

B$="03010 31E3226 3018" 

C» ="0103030303030303" 

D*= ' ' 0301070D09090F0 6 ' ' 

FALL. CHAR (130, A*) 

CALI... CHAR ( 131, B»> 

CALI. CHAR ( 132, Ct) 

CALL CHAR(133,D») 

CALI. CHAR ( 136, A*) 

CALL CHAR(137,"001030306060C0C0") 
CALL CHAR(138,Et) 

CALI, CHAR ( 139; "S00030F093C87830" ) 
CALL CHAR<140,Ct) 

CALL CHAR<141,"0080808080808080") 
CALL CHAR(142,Dt) 

CALL CHAR(143,"8000C0602020EOCD"! 
CALL CHAR<144,"00000000FF") 

CALL CHAR(145,"FF8181") 

CALL CHAR(146,"FFO101") 

CALL COLOR (13,2., 1 4 ) 

CALL CLEAR 

FRINT "HAI A DISPOSIZIONE UN PAIO" 
FRINT "DI FORBICI PER TAGLIARE PAR¬ 
ER INT "TI FRAZIOMARIE": : : 

FRI NT "USA I SEGUENTI COMANDI:":: 
FRINT "TASTO (D) PER SPOSTARE LE" 

PRI NT TAB(11);"FORBICI A DESTRA" 

FRI NT "TASTO (S) PER SPOSTARE LE" 

PRINT TAB (11) ; "FORBICI. A SINISTRA" 
PRINT "TASTO (T) PER TAGLIARE.":;:: 
PRINT TAB(8)5"premi un tasto" 

F’RINT TAB (8) ; "per continuare" 

CALL KEYCO,K,S> 

IF S=0 THEM 540 

PUNTI=0 

NUME=1 

DENO-2 

GOSUB 1100 

NUME -• 1 

DENQ=4 

GOSUB 1100 

NUME—1 

DEN0=3 

GOSUB 1100 

NUME=3 

DENO=4 

GOSUB 1100 

NUME=2 


Seguilo listalo 2. 


700 DEN0--3 

710 GOSUB 1100 

720 NUME=5 

730 DENO-'6 

740 GOSUB 1100 

750 NUME=5 

760 DENO—12 

770 GOSUB 1100 

780 NUME=2 

790 DENO-4 

800 GOSUB 1100 

810 NUME=3 

8.20 DENQ=6 

830 GOSUB 1100 

840 NUME=7 

850 DIE NO—12 

860 GOSUB 1100 

870 CALL CLEAR 

880 IF PUNTI<20 THEM 920 

890 PRINT TAB(11)S"OTTIMO 

900 GOSUB 2730 

910 GOTO 1030 

920 IF PUNTIC15 THEM 960 

930 PRINT TAB(12);"BENE 

940 GOSUB 2730 

950 GOTO 1030 

960 IF PUNTI<10 THEM 1000 

970 PRINT TAB(9);"SUFFICIENTE. 

980 GOSUB 2500 
990 GOTO 1030 

1000 PRINT "TEMO CHE LA MATEMATICA NON 
1010 PRINT "SIA IL TUO FORTE.":::::::: 
1020 GOSUB 2630 

1030 PRINT "VUOI CONTINUARE? (S/N)" 

1040 CALL KEY< 0,K,S) 

1050 IF 8=0 THEN 1040 
1060 IF (K=83)+(K=115)THEN 560 . 

1070 IF ( 1-0=78 ) + ( K=110) THEN 2850 
1080 GOTO 1040 

1090 REM *•** ANIMAZIONE *** 

1100 CALL CLEAR 

1110 FOR J=3 TO 11 

1120 CALL. HCI-IAR <J,11,128,12) 

1130 NEXT J 
1140 F»= " T AGL IA " 

1150 FOR J = 1 TO 6 
1160 L=ASC(SEGt(F$,J,1)) 

1170 CALL HCHAR<17,10+J,L > 

1180 NEXT J 

1190 LN=L.EN ( STR* ( NUME ) ) 

1200 LD=L.EN ( STR» (DEMO ) ) 

1210 FOR 1 TO LN 
1220 L-ASC(SEGt(STR» <NUME)„J,1)) 

1230 CALL HCHAR ( 16,19.LN+J,L > 

1240 NEXT J 

1250 CALL HCHAR(17,19,144) 

•1260 IF ( LN -1)*< LD= 1 ) THEN 1280 
1270 CALL HCHAR(17,13,144) 

1280 FOR J=1 TO LD 
1290 L-ASC(SEG»(STR»(DENO),J,1)) 

1300 CALL. HCHAR (18,19-LD+J , L ) 

1310 NEXT .7 
1320 XVECCHI0=11 

1330 CALL HCHAR(13.XVECCHIO.136) 

1340 CALL HCHAR<13,XVECCHI0+1,137) 

1350 CALL HCHAR(14,XVECCHIO,138) 

1360 CALL HCHAR ( 14. XVECCIH10+1. 139 ) 

1370 CALL KEY< 0,K,S) 

1380 IF S=0 THEM 1370 

1390 IF (K=Ó8! + (K =100)THEN 1440 

1400 IF ( 1083 ) + (K= 115) THEN 1470 

1410 IF (1084) + UOl 16) THEN 1600 

1420 GOTO 1370 

1430 REM *** DESTRA *** 

1440 XDIR=1 

1450 GOTO 1480 

1460 REM *** SINISTRA *** 

1470 XDIR=—1 

1480 XN= X VECCHI 10+ XDIR 

1490 IF (XN<11) + (XN>21)THEN 1370 

1500 XNUOVO=XN 
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Seguilo listalo 2. 


1310 

1530 
1 540 
i 550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1 640 
1650 
1660 
1670 
1680 
1690 
I 700 
1710 
1720 
1730 
1740 
1750 

1 760 
■| 770 

Ì 7BÒ 
1790 
.1800 
1810 
1820 
1830 
1840 
185 0 
1B60 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
21 40 
2150 
2160 

2 1 70 


nriq r-, 


*-*■* 


X1,136) 


CALL. HCHAR < 13 
CALA HCHAR < 14 
CALL HCHAR « 13 
CAI.!.. HCHAR ( 13 
CALL HCHAR<14 
CALL HCHAR<14 
X VECCH10-" X NUOVO 
BOTO 1370 
REM *■** TAGLIA 
X1=XVECCHIO 
X 2 - X V E C C HIQ + 1 
CALL HCHAR < 13, X:l., 32 
CALL. HCHAR <14, XI, 
CALL HCHAR<12 
CALL HCHAR<12 
CALL HCHAR<13 
CALL HCHAR<13 
CALL HCHAR(11 
CALL HCHAR<12 
CALL HCHAR ( 12 
CALL HCHAR<13 
CALL HCHAR(11 
CALL HCHAR<12 
CALL HCHAR(12 
CALL HCHAR<11 
CALL HCHAR(12 
CALL HCHAR(12 
CALL HCHAR(10 
CALL HCHAR ( 11 
CALL HCHAR(12 
FOR R=10 TQ 4 


XVECCH10,32,2 
XVECCHIO,32,2 
XNUOVO,136! 
XNUOVO+1.137) 
XMUOVO,138) 
XNUOVO+1,139) 


x: 

xi 

X2 

XI 


137) 

138) 
139 ) 
130) 


X1,138> 


X2 
X 1 ; 32 

X 1, 13 

XI ' 

X2 


139) 


XI 
XI 
X2 
XI 
XI 
XI , 
STÈP 
XI, 1 


) 

142) 

143) 
130) 

138) 

139) 

130) 

131) 


!) 


•1 


;) 


HCHAR(R+1,X 1,133) 
HCHAR(R,XI,130) 
HCHAR(R+l,Xl,131) 
HCHAR(R—11XI,130) 
HCHAR(R,Xl,131) 
HCHAR(R+l,Xl,129) 
R 

HCHAR(3,Xl. 

HCHAR ( 4X 1 
HCHAR(3,Xl 
HCHAR(4,Xl 
HCHAR(2,Xl 
HCHAR<2;X2 


CALL HCHAR(R, 

CALL 
CALL. 

CALL 
CALL 
CALL. 

CALL 
NEXT 

CALL HCHAR(3,Xl,132) 

CALL HCHAR(4,X1,133) 

CALL HCHAR(3,Xl,130) 

CALL HCHAR(4,Xl,131) 

CALL HCHAR(2,Xl,136) 

CALL HCHAR (2X2, 137) 

CALL HCHAR(3,Xl; 131) 

CALL HCHAR< 4,X1,129) 

CALL. HCHAR ( 1X1 ; 136) 

CALL HCHAR(1,X2,137) 

CALL HCHAR(2,Xl,138) 

CALL HCHAR<2,X2,139) 

CALL HCHAR(3,Xl,129) 

FOR T=1 TO 100 
NEXT T 

CQLQ=10+12*NUME/DENO 
IF X1=CQL0 THEN 2380 
IF VOLTE=2 THEN 2170 
E$="ERRORE ! RIPROVA” 

FOR J=i TO 15 
L=ASC<SEB$(E$,J, 1)) 

CALL HCHAR(21,8+J,L) 

NEXT J 

FOR T=1 TO 1000 
NEXT T 
VQLTE=2 
GOTO 1100 
V0LTE=0 
EE$=”ERRORE!" 

FOR J--1 TO 7 

L.=ASC < SE 13$ ( EE$, J „ 1 ) ) 

CALL. HCHAR (21,10+J , L. ) 

NEXT J 
GQSUB 2630 

RR*="GUARDA LA RISPOSTA ESATTA, 

FOR J=1 TO 26 

L=ASC(SEG$(RR$,J, 1)) 

CALL HCHAR(23,2+3,L) 

NEXT J 

CALL. HCHAR (12, 11, 145) 

CALL HCHAR<12,12,146,11) 

CALL. HCHAR (13, COLO, 136 ) 


Seguilo listalo 2. 


2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

254Ó 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2920 
2830 
2840 
2850 
2860 


CALL. HCHAR (13, COLO+1, .137) 

CALL HCHAR(14,COLO,138) 

CALL HCHAR(14,COLO+1,139) 

FOR T=1 TO 3000 

NEXT T 

GOTO 2490 

ES$="ESATTO'" 

FOR J=1 TO 7 
L=ASC(SEG$<ES$,J,1)) 

CALL HCHAR(21,10+J,L) 

NEXT J 
GOSUB 2500 
IF V0LTE=2 THEN 
FLINT IMPUNTI +2 
GOTO 2480 
PUNTI-PUNTI+1 
VOI. TE=0 
RETURN 

CALL SOUND(400,440,8> 


5470 


CALL SOUND(200 


CALL. SOUND (200, 440 


CALL SOUND(400 


587 


CALL SOUND(200,523 
CALL SOUND(200,537 
CALI... SOUND (400, 494 
CALL SOUND(200,440 


6 ) 
5) 
4) 

3) 

4) 

CALL SOUND<200,494 „ 5) 
CALL SOUND(500,392,6) 
FOR T=1 TO 300 
NEXT T 
RETURN 

CALL SOUND(400,440,6) 


592,8) 


CALL SOUND(150 
CALL SOUND(400 
CALL. SOIJMD (150 


CALL SOUND(400,175 


440 

349 


330,6) 


6 ) 

6! 


6) 


CALL SOUND ( 150, 1651, 6 ) 
CALL SOUND(1000,131,6) 
FOR T=1 TO 800 
NEXT T 
RETURN 

CALL SOUND(300,698,2) 


CALL. SOUND (300 
CALL SOUND (300', 

CALL SOUND<300, 

CALL SOUND(ISO, 

CALL SOUND<150, 

CALL SOUND(150,784,2) 
CALL. SOUND ( 150,880 ; 2 ) 

CALL SOUND(500, .' 

FOR T-l TQ 300' 

NEXT T 
RETURN 
CALL CLEAR 
END 


Q ■-> } 

784’2) 
880,2) 

932.2) 

880.2) 


698,2) 


DEBUG 

Dal listato BASIC del Programmer’s tool kit, 
pubblicato nel n. 12/13 è saltata una linea 
fondamentale per il corretto funzionamento 
del programma. Occorre aggiungere la se¬ 
guente istruzione: 

1305 DATA A9, 2C, 20, D2, FF, A5, FE. 
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D EBUG 


Wei-ch’i 

Come i nostri lettori avranno avuto modo di 
notare, sullo scorso numero di Personal Software, in 
luogo del listato del programma che vi veniva 
descritto, è apparso il listato di un programma di 
statistica ad una dimensione. Scusandoci con i lettori 
di Personal Software, pubblichiamo su questo 
numero il listato scomparso. 
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Servizio programmi 


Per alcuni dei programmi pubblicati, Personal Software mette a disposizione dischi e 
nastri già registrati, realizzati in collaborazione con l'autore. Potete ottenerli in contras- 
segno, pagando direttamente al postino la cifra indicata, spedendo il tagliando pubbli¬ 
cato in fondo alla pagina. 


N. 

Sistema 

Programmi 

Supporto 


pubblicato in 

Personal Software n. 

Prezzo 

1 

Apple 11+ 

La carta del cielo 

Collisione 

floppy 5" 

DOS 3.3 


3 pag. 83 

3 pag. 93 

30.000 

2 

TRS-80 mod. 1 

Backgammon 

floppy 5" 

DOS 2.3 


3 pag. 89 

25.000 

3 

PET/CBM 3032/4032 

Editor/Assembler in Basic 

floppy 5" 

3032/4032+3040/4040 

2 pag. 33 

40.000 

4 

Apple 11 + 

Interi in precisione 
multipla 

Grafica 3D 

floppy 5" 

DOS 3.3 


4 pag. 17 

4 pag. 47 

40.000 

5 

PET/CBM 3032/4032 

Gioco del calcio 

floppy 5" 

3032/4032+3040/4040 

4 pag. 67 

25.000 

6 

Apple II + 

Pretty Printer 

Shape Table 

floppy 5" 

DOS 3.3 


5 pag. 27 

5 pag. 58 

30.000 

7 

Apple II + 

Data base 
modulare 

floppy 5" 

DOS 3.3 


7 pag. 47 

25.000 

8 

PET/CBM 3032/4032 

Wei-ch’i 

cassetta 

12/13 pag. 34 

20.000 

9 

C 64 

Tool-kit 

cassetta 


1 pag. 18 

35.000 


Inviatemi i seguenti dischi di Personal Software 

n_ 

per un totale di lire_+ L. 2.000 come contributo fisso 

spese di spedizione che pagherò al postino alla consegna del pacco. 


Cognome e nome 


Indirizzo 


Cap., Località 


Firma 


Spedire in busta 
chiusa a 

PERSONAL SOFTWARE 
Servizio Programmi 
Via Rosellini 12 
20124 Milano 
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Apple 


Vendo Apple II 48K L. 1.200.000 Disk Drive 
con controller e Drive aggiuntivo. Disponibili 
stampante Epson MX 100 e numerose inter¬ 
facce. Programmi in omaggio agli acquirenti. 
Orlando Sergio - Via Dei Ciclamini, 37 - 
20100 Milano - Tel. 02/4151963. 

Vendo Lemon II 48K, monitor 12”, disk drive 
per passaggio sistema superiore, 4 mesi vita 
L. 2.800.000 trattabili. 

Nervi Roberto - Via Famagosta, 26/4 -17100 
Savona - Tel. 019/32753. 

Vendo per Apple II "Supertoto 1.0", superpro- 
gramma totocalcio inedito, 3 diverse opzioni 
di selezioni incrociate; elaborazione super¬ 
veloce delle colonne utili, output su video o 
stampante. L. 70.000. 

Rossi Roberto - Via Lario, 26 - 20159 Milano - 
Tel. 6070236. 

Vendo stampante termica silentype per Apple 
II. Vera occasione! L. 500.000 compresa inter¬ 
faccia. Telefonare ore pasti. 

Bova Domenico - Via Borgognone, 31 - 
20144 Milano - Tel. 8394107. 

Scambio/ve ndo bellissimi giochi (spaziali e 
di intelligenza) per Apple II, per chiarimenti 
ecco alcuni giochi: stellar invaders, Sargon II, 
Swasmbuckler, Paddle Fun, Santa Paravia, 
Decathlon, ecc. 

Serenari Gabriele - Via Ca’ Pedicelli. 1 - 
42020 Albinea (RE) - Tel. 0522/599094. 

Vendo The last one versione Apple II comple¬ 
to di manuali in italiano a L. 300.000. 
Telefonare allo 0583/584795 ore pasti oppu¬ 
re allo 0583/331528 ore ufficio. 

Betti Marco - Via Villa Altieri - 55100 Lucca - 
Tel. 584795. 

Apple vendo con TV Sony Color, 2 Drivers, 
stampante Epson 100, Langvage Card, pro¬ 
grammi più importanti completi di documen¬ 
tazione e diverse Card per applicazioni parti¬ 
colari. Telefonare 12-14. 

Dimant Fabio - Via Raibolini, 33/7 - 40069 
Zola Predosa (BO) - Tel. 051 /273277. 


Commodore 


Vendo per 2001,3032, 4032, programmi bio¬ 
ritmo Óthello, Dama, Poker, Blackjack su 
cassetta L. 25.000 disco L. 30.000, telefonare 
ore serali. 

Marchesotti Piero - Via M. Sabotino, 20 - 
15067 Novi Ligure (AL) - Tel. 0143/75608. 

Compro per VIC 20 configurazione base, li¬ 
stati o cassette per giochi e/o altro a prezzo 
interessante. Inviatemi le vostre liste, rispon¬ 
derò a tutti. 

Li Bassi Lorenzo - Via S. Gerardo dei Tintori, 
19 - 20046 Biassono (MI). 


Vendo programmi per Commodore 64 giochi 
fotocopie listati inviatemi busta affrancata 
con vostro indirizzo vi spedirò elenco detta¬ 
gliato L. 2.000 listato + 500 spese postali an¬ 
che cassette. 

Taccucci Claudio - Via dell’Acquedotto Pao¬ 
lo, 163 - 00168 Roma - Tel. 06/6795816. 

Vendo a L. 30.000 (prezzo listino L. 85.000) 
programma "Frogger" per CBM 64 o cambio 
con altri programmi su cassetta. Cerco inoltre 
floppy disk VC 1541 solo se a un prezzo vera¬ 
mente favorevole. 

Ferlin Federico - Via Fasolo, 28 - 35036 Mon- 
tegrotto Terme (PD) - Tel. 794400. 

Vendo per VIC 20 non espanso, cassetta di 
programmi musicali, contenente 10 brani ce¬ 
lebri, eseguiti a 2 o 3 voci, tutti di ottimo effetto, 
a sole L. 20.000, spese e cassetta comprese. 
Livi Roberto - Via Bissolati, 5-61100 Pesaro - 
Tel. 0721/65873. 

Vendo/cambio programma magazzino VIC 
fino 500 articoli su disco con spiegazioni in 
italiano altro gestione condominio 16 K su 
disco 1-4 scale 400 condomini. 

Locatelli Elio - Via N. Ardoino, 9/41 - 16151 
Genova - Tel. 010/421701 (serali). 

Cambio software su cassetta per PET 2001 
New ROM. Inviatemi lista invierò la mia. Cer¬ 
co programmi RTTY. Cerco schema PET 
2001 e notizie su espansione di memoria sul 
C.S. interno. Telefonare 19,30-20. 

Zafferani Vincenzo - Via Rancaglia - 47031 
Serravalle Rep. S. Marino - Tel. 0541 /901296. 

Carpo 16K per VIC 20 a buon prezzo. Cerco 
stampante in ottimo stato. 

Vimercati Mario - Via Varesina, 54 - 22079 
Villaguardia (CO) - Tel. 031 /480630. 

Vendo per Commodore 64 “Screen Graphics 
64”. Tra le altre cose, aggiunge 24 comandi al 
Basic residente. Telefonatemi allo 
039/734144 ore pasti. Franco (comprensivo 
di manuale e demo). 

Compro VIC 20 + registratore + 16 K RAM + 
3 K superexpander + manuali in italiano e 
cavi di connessione prezzo max. L. 600.000 - 
ore ufficio. 

Vaccaielli Franco - Via Macerata, 71 - 00176 
Roma - Tel. 270977. 

Regalo registratore C2N + espansione 8 
kbyte + vari programmi su cassette a chi ac¬ 
quista il mio VIC 20 (8 mesi di vita) al prezzodi 
vendita attuale (IVA inclusa). 

Telefonare ore serali 004191/713167. 

Russo Paolo - Via Statale, 36 - 21030 Marchi- 
rolo (VA) - Tel. 0332/722949._ 

CBM 64: cerco software di termotecnica, 
“373”, impianti riscaldamento condiziona¬ 
mento, ventilazione, energia solare. 

Cerco inoltre gestione magazzino. 

Fornaciari Dino - Villaggio Dante, 30 - 52100 
Arezzo - Tel. 0575/351451 (ore pasti). 


Vendo VIC 20 + registratore Commodore + 8 
K + 3 K + 3 K graphic + Turtle Graphics + 
Jelly Monster + Poker + Radar Ratrace 4- 
Slot + Jupiter Lander + manuali in italiano e 
tantissime riviste con programmi a L. 800.000 
trattabili. 

Rudella Bruno - Via Verdi, 31 - 24040 Arcene 
(BG) - Tel, 035/878594. 


Cambio per VIC 20 programmi in LM dispon¬ 
go di molti programmi (circa 80) anche inediti 
come sidewinder, swarm, VE120, Clitters, 
Cyclons e anche un monitor in LM completo 
di tutte le funzioni (+8 K). 

Smilovich Maurizio - Via Del Carpineto, 16/1 

- 34148 Trieste - Tel. 34148. 

Vendo cassette per il VIC 20 con vari pro¬ 
grammi incisi a modestissimi prezzi. I pro¬ 
grammi sono scritti in linguaggio macchina. 
Roberto Silva - Via Cagnola, 3 - 20154 Milano 

- Tel. 317228 (ore serali). 

Vendo VIC 20 + super expander grafica 3K 
RAM, in perfette condizioni, in garanzia, usa¬ 
to poco, istruzioni in italiano, per passaggio a 
sistema superiore, a L. 380.000. 

Telefonare dalle ore 19.000 in poi. 

Proserpio Giancarlo - Via Besana, 6 - 20036 
Meda (MI) - Tel. 0362/229750. 

Vendo VIC 20 Commodore in perfette condi¬ 
zioni, usato pochissimo, completo di tutti gli 
accessori a L. 340.000. 

Sangirardi Fabio - Via G. Vitelleschi, 6 - 
00193 Roma - Tel. 06/6541818. 

Per CBM 64 vendo programma di Word Pro¬ 
cessing con potente editor in LM, un versatile 
data base e un programma per la gestione 
delle spese familiari a L. 10.000 ciascuno. 
Richiesta stampante. 

Monti Luca - Via Postcastello, 8 - 21013 Gal¬ 
larate (VA) - Tel. 0331 /792755. 

Vendo e scambio fantastici programmi per 
VIC 20 cerco espansioni 8K, 16K massima 
serietà. 

Ravagni Giulio - Via C.so Rosmini, 63 - 38068 
Rovereto (TN) - Tel. 0464/34475. 

Vendo VIC 20 + interfaccia registratore + 
cavi + manuali al migliore offerente. Tutto in 
condizioni veramente perfette. 

Schianchi Massimo - Via G. Miranda, 3 - 
80131 Napoli - Tel. 081/463025. 

Compro cambio vendo programmi ad alta ri¬ 
soluzione grafica per Commodore 64. 
Bacchetta Guglielmo - Casella Postale. 253 - 
60035 Jesi (AN) - Tel. 0731 /56705. 

VIC 20 + registratore 2CN + espansione me¬ 
moria e grafica alta risoluzione + manuali + 
cavetti + tutto il software fatto su cassette 
(giochi - archivi ecc.) a L. 500.000 telefonare 
ore pasti. 

Albanesi Stefano - Via Leopardi, 10 - 20123 
Milano - Tel. 8055804. 

Vendo per VIC 20 3 cartucce (Awenger, Star- 
battol, Radar) per L. 60.000 e Super Expander 
+ programmi a L. 60.000, usati 2 mesi. 
Maiocchi Fausto - Via Papa G. XXIII, 8 - 20082 
Binasco (MI) - Tel. 9054059. 

Scambio/vendo programmi per VIC 20, ri¬ 
spondo a tutti, mandatemi le vostre liste, vi 
invierò le mie, scrivere o telefonare (dalle 7 di 
sera). 

Bottoni Gianfranco - Via biglietti, 16 - 28067 
Pernate (NO) - Tel. 0321/436102. 

Cerco programmi di qualsiasi genere per VIC 
20 a bassissimo costo da persone che se ne 
vogliono disfare o altri scrivere a: 

Burattelli Gianluca - Via G. di Vittorio, 2 - 
58022 Follonica (GR) - Tel. 0566/42445. 
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Vendo/cambio programmi 8 K su cassetta 
per VIC 20: Forth (+ manuale), VIC Grat, Text 
Editor, Avenger, Poker, Jupiter Lander, Frog, 
Sargon II Chess, Bonzo, Boss, Sub Chase, 
Galaxian, Defender, Rat Race, Alien. 

Ariatti Claudio - Via Domodossola, 6 - 40139 
Bologna - Tel. 051/544699. 


Vendo programmi per VIC 20 a 3, 6, 8 o 16 K 
(giochi, utility, grafici) a prezzi da concordare, 
tramite invio cassetta o listato, per lista inviare 
L. 1.000. Massima serietà assicuro risposta a 
tutti. 

Gollo Andrea - C.so Correnti, 37 -10136 Tori¬ 
no. 


Vendo per PET-CBM 3032 programmi di in¬ 
gegneria: Stress 373 capurso, stampa Kani 
Word III Sisma e altri a prezzi veramente ec¬ 
cezionali. 

Leonelli Paolo - Via A. Manzoni, 108 (presso 
Lìverani) - 48010 Barbiano (RA) - Tel. 
0545/78007. 

Vendo, cambio, compro bellissimi programmi 
per CBM 64: Utility, Arcade Games, ecc. ecc. 
Telefonateli! 

Masini Patrizio - Via del Castagnone, 68 - 
15048 Valenza Po (AL) - Tel. 0131 /953695. 

Vendo per CBM 64 software scientifico, Uti¬ 
lity, giochi e vari; con possibilità di persona¬ 
lizzare i programmi a richiesta si invia gratui¬ 
tamente il catalogo, tutti i programmi sono su 
cassetta. 

Antoniucci Luciano - Via C. Goldoni, 7 - 
05100 Terni - Tel. 0744/421274. 


Sinclair 


Causa passaggio sistema superiore vendo 
ZX81 espanso a 32 K RAM, con alimentatore 
potenziato e stabilizzato per evitare riscalda¬ 
menti del computer, a scelta collegabile a TV 
o a monitor in inverse-video. 

Neri Stefano - Via S. Mario della Grotticella, 
4/C - 01100 Viterbo - Tel. 0761/32442. 

Vendo software per ZX81 con e senza espan¬ 
sione su listato. Scrivetemi per ricevere elen¬ 
co dei programmi. Rispondo a tutti. 

Vanoletti Paolo - Via Pindemonte, 1 - 20100 
Milano. 

Sinclair ZX Spectrum disponendo di un note¬ 
vole archivio software vendo a L. 10.000 cas¬ 
sette registrate con 5 giochi a scelta Tel. 
045/568649 ore pasti. 

Parbuono Ivano - Via A. di Cambio - 37138 
Verona. 

Vendo ZX Spectrum 48 K usato pochissimo L. 
420.000. Telefonare ore serali. 

Spero Marcello - Via S. Polo, 2542 - 30125 
Venezia - Tel. 041 /37085. 


Vendo Sinclair ZX 81 perfetto, garanzia in 
bianco e imballaggio con tutti gli accessori, 
manuali inglese e italiano, alimentatore mag¬ 
giorato 1,2 ampere, espansione 16K + libro 
66 programmi, cassetta programmi vari tutto 
a L. 220.000. Qualsiasi prova. Telefonare ore 
20 - 21 . 

Piu Maurizio - Via M. Fanti, 21/51 - 16149 
Genova-Sampierdarena - Tel. 010/418503. 

Vendo ZX81 + alimentatore + cavi + manua¬ 
le a L. 100.000 ottime condizioni usato po¬ 
chissimo causa passaggio a sistema supe¬ 
riore. 

Valle Paolo - V.le Matteotti, 73 - 27100 Pavia - 
Tel. 0382/32264. 

Vendo ZX81, esp. 32K, mother board con 4 
connettori, sound board, con ampli B.F., ta¬ 
stiera premente a reed il tutto in un contenito¬ 
re d'alluminio, 2 manuali e programmi prezzo 
da stabilire. 

Alziati Saverio - Via Dei Platani, 16/34 - 
20020 Arese (MI) - Tel. 02/9383169. 

Compro ZX Printer usata a prezzo modico. 
Faraboschi Paolo - Via Boccadasse, 16/17 - 
16146 Genova - Tel. 010/306806 (ore pasti). 

Vendo programmi perZX Spectrum 16/48 K 
RAM, novità anteprima inglesi. 

Vistoli “Pico Tronic” G. Mario - Via V. Peloni, 
26 - 51100 Pistoia - Tel. 35713. 

Se possiedi uno ZX Sinclair sei nostro amico! 
Ci potrai richiedere i migliori programmi ai 
migliori prezzi, libri inglesi ecc. agli iscritti gli 
adesivi del club “Gruppo utilizzatori compu¬ 
ter Sinclair" c/o. 

Chimenti Roberto - Via Luigi Rizzo, 18 - 
80124 Napoli - Tel. 081/617368. 

Vendo per ZX Spectrum un programma per 
ridurre sistemi per il totocalcio adattabili al 
Totip ed Enalotto. Per informazioni rivolgersi 
ore pasti a: 

Rosiello Marcello - Via Cancello Rotto, 10 - 
70125 Bari - Tel. 411841. 

Cerco computer ZX 81 usato o nuovo 16K + 
alimentatore 0,7A cavetti di connessione ma¬ 
nuale italiano -t- eventuali listati o programmi 
cassetta a non più di L. 100.000. Telefonare 
dopo le 21.00. 

Benetti Andrea - Via Cairoli, 4 -13011 Borgo- 
sesia (VC) - Tel. 25062. 

Vendo ZX 81 + 16K + alimentatore (il tutto 
nuovo e garanzia da spedire) + manuali in¬ 
glese e italiano + cassetta che contiene favo¬ 
losi programmi (Pacman, Madkong ...) + listati 
vari, il tutto vendo a L. 345.000. Gli interessati 
si rivolgano a: 

Pintus David - Via Nuoro, 3 - 09042 Mandas 
(CA) - Tel. 070/984068. 

Cerco nella zona di Piacenza possessori di 
ZX Spectrum per scambio programmi infor¬ 
mazioni e consigli. 

Affaticati Alessandro - Via S. Franca, 60/C - 
29100 Piacenza - Tel. 0523/32953. 

Super programmi Spectrum scambiasi!! Ri¬ 
spondo a tutti gli Spectpatiti. Mandatemi la 
vostra lista ed io invierò la mia per iniziare a 
scambiarci i programmi intervenite numerosi 
scrivendo a: 

Bottoni Fabio - Via Pr. Uglietti, 16 - 28067 
Pernate (NO) 


Vendo o cambio software su cassetta per ZX 
Spectrum. 

Bozzoni Giacomo - Via Sardegna, 80 - 20099 
Sesto San Giovanni (MI) - Tel. 02/2479771. 

Cambio programmi perZX 81 gestioni, giochi, 
utilità, inviare lista, risposta assicurata. 
Vescovini Giuseppe - Via Flemine, 2-41100 
Modena - Tel. 352897. 

Vendo programmi per ZX Spectrum 48K 
compilatore Basic L. 30.000 Flight Simulation 
- Time Gate - Defender ect. L. 12.000 cadau¬ 
no. 

Cadetti Mauro - Via dei Cavalieri, 67 - 47037 
Rimini (FO) - Tel. 0541/22775. 

Cerco possessori ZX Spectrum zona Bari per 
scambio programmi informazioni e idee an¬ 
nuncio sempre valido anche per utenti di tutta 
Italia. Inviate vostra lista programmi e io invie¬ 
rò a voi la mia. 

Sciancalepore Giuseppe - Via P. Emilio, 50 - 
70059 Trani (BA) - Tel. 0883/45682. 

Vendo i seguenti manuali in inglese: “ZX 
Spectrum microdrive and interface 1 manual” 
a L. 12.000 e "Spectrum microdrive book" 
Byian Logan, a L. 15.000. 

Vialetto Dante - Via Gorizia, 5 - 21053 Castel- 
lanza (VA) - Tel. 0331/500713. 

Sinclair ZX 81 + 16 K RAM al miglior offerente 
completo di manuali cavi e alimentatore. 
Sartori Carlo - Via Adige, 3 - 31027 Spresiano 
(TV). _ 

Vendo, causa regalo altro sistema, ZX81 con 
espansione 32K RAM e con alimentatore po¬ 
tenziato, il tutto in imballi originali con cavi di 
collegamento. Regalo libro programmi + 
hardware + manuali + manuale con il siste¬ 
ma + operativo disassemblato e commentato 
+ numerosi programmi su cassetta C90. Il 
tutto a sole L. 300.000 causa assoluto biso¬ 
gno di contanti. 

Fumagalli Davide - Via Osoppo, 11 - 20148 
Milano - Tel. 4033650. 


Vendo e scambio oltre 150 programmi per ZX 
Spectrum a L. 5.000 cad. 

Per richiesta listino inviare L. 1.000 in franco¬ 
bolli a: 

Pezzali Stefano - Via Loria, 4 - 46100 Manto¬ 
va - Tel. 0376/362180. 

Vendo per ZX Spectrum Routine 2 K per usa¬ 
re 64 colonne sulla stampante e sul video. 
Vendo anche vari altri programmi soprattutto 
matematici. 

Pepe Emilio - Via R. Montuoro, 5 - 90145 

Palermo - Tel. 569141. _ 

Vendo e scambio oltre 150 programmi perZX 
Spectrum a L. 5.000 cad. per richiesta listino 
inviare L. 1.000 in francobolli a: 

Pezzali Stefano - Via Loria, 4 - 46100 Manto¬ 
va - Tel. 0376/362180. 

Vendo per ZX Spectrum: compilatore Pascal 
L. 50.000; Forth L. 20.000; Editor/Assembler 
L. 15.000 (tutti completi di manuale). Solo zo¬ 
na Roma. Telefonare ore serali. 

Frezza Federico - Via Palmi, 1 -00182 Roma 

- Tel. 7551195. _ 

Vendo ZX81 16K RAM cavi e alimentatore del 
1983 febbraio e cassetta scacchi a L. 200.000. 
Ghidoni Elio - Via Venezia, 6 - 25073 Bovezzo 
(BS) - Tel. 030/2712659. 
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Eccezionale! Vendo cassetta con 2 magnifici 
giochi per Sinclair ZX Spectrum con logica 
portante realizzata completamente in lin¬ 
guaggio macchina Scrivere o telefonare dal¬ 
le 20 alle 21. 

Gatti Alfredo - Via Alzaia, 59 - 27100 Pavia - 
Tel. 0382/467300. 

Vendo/ cambio software per Spectrum novità 
mensili, prezzi eccezionali, richiedetemi gra¬ 
tis l’elenco con più di 120 titoli in continua 
espansione, vendo inoltre Spectrum 48K a L. 
460.000 come nuovo. 

Prignano Gianni - Via Portuense, 1450 - 
00050 Ponte Galleria, Roma - Tel. 
06/6471026. 

Eccezionale offerta di programmi per lo 
Spectrum. Vendita in piccoli e grandi stock di 
cassette a prezzi convenientissimi. Contatta¬ 
re per ulteriori informazioni. 

Vita Luciano - Via Oreste Pennati, 1 - 20052 
Monza (MI) - Tel. 039/367029. 

Cambio/ vendo programmi per ZX Spectrum 
L. 8.000. Scrivere o telefonare (di sera) per 
ricevere l'elenco completo. 

Calcaterra Stefano - Via Marconi, 34/2 - 
40122 Bologna - Tel. 051/521063. 


Texas 


Vendo stampante PC-100A della Texas, cau¬ 
sa passaggio a sistema superiore, in perfette 
condizioni a L. 350.000 trattabili. Tratto esclu¬ 
sivamente con Genova. Telefonare (circa ore 
21) solo se veramente interessati. 

Ramasco Luca - Via Miramare, 2 - 16128 
Genova - Tel. 587321. 

Vendo Texas I 59 stampante PC 100 + sche¬ 
dine magnetiche + modulo di base con relati¬ 
ve istruzioni + vasta biblioteca di programmi 
per ingegneria civile con manuali d’uso L. 
380.000 trattabili. 

Tavella Giuseppe - P.zza Municipio - 88010 
Jonadi (CZ) - Tel. 0963/331124. 

Texas TI99/4A cerco programmi semplici 
adatti a principiante non giochi ma di archivio 
ecc. 

Brunetti Angelo - Via Cherso 3/B - 10136 
Torino - Tel. 393695. 

Vendo software per TI99 in Ext. Basic: Aste- 
roid, Adventure, Voyage, Rain, Xevios, Abyss 
e molti altri di ogni genere, tutti originali, a 
richiesta in Basic. Scrivere per catalogo 
unendo L. 500 in francobolli. 

Prochet Alfredo - Via Dandolo, 19 - 10137 
Torino - Tel. 011/304196. 

Vendo TI-99/4D -(-alimentatore + cavi di col- 
legamento registratore e TV + modulo PAL 
color + modulo SSS minimemori + coppia 
joystick + mariuali d'uso, il tutto in perfette 
condizioni a L. 500.000. 

Biondi Fabio - Via Città Vecchia, 46 - 59049 
Vipiteno (BZ). 


Vendo 45 programmi per TI 99/4A; dispongo 
di labirinto 3D, Sci, Tron, Othello, Alien attack, 
automobilismo 3D, ecc. vendita contrasse¬ 
gno. 

Richiedere elenco dettagliato allegando L. 
1.500 per fotocopie, prezzi sotto L. 9.000. 
Benatti Paolo - Via A. Doria, 25-37138 Vero¬ 
na - Tel. 045/560930. 

Vendo a prezzi irrisori software per TI99, gio¬ 
chi, matematica, sistemistica, varie, spedire 
francobollo per risposta immediata e listino 
prezzi programmi ottimizzati. 

Zupi Valerio - Via Traversa Bernardo Qua¬ 
ranta, 9 - 80146 Napoli - Tel. 7521587. 


Per TI 99/4A vendo ottimo programma Tl- 
Basic per grafici singolo Pixel (128x96) o 
(160x96) esecuzione <3 min. contatterei altri 
utenti per computer club, in zona. 

Rolandi Franco - C. Tassoni, 47 - 10143Tori- 
no - Tel. 011/766724. 

Vendo TI 99/4A - CPU 16 bit, 16 K RAM, 26 K 
ROM, grafica 192x256 punti 16 colori, 3 ge¬ 
neratori sonori indipendenti -t-cavo registra¬ 
tore + joystick + trasformatore, tutto in garan¬ 
zia a un ottimo prezzo. 

Galgani Danilo - P.zza Mattirolo, 8 - 10149 
Torino - Tel. 298053. 

Per i possessori del TI-99/4A vendo 30 pro¬ 
grammi (giochi, matematica, musica, totocal¬ 
cio) di cui molti originali Texas a L. 50.000 per 
dettagliate informazioni o lista software con¬ 
tattare: 

Santangelo Enzo c/o Casa Universitaria Ber¬ 
toni - Via Carnia, 14 - 20132 Milano - Tel. 
02/2856924. 


Varie 


Vendo computer N.E. 32K RAM, completo di 
tastiere, interfacce video e cassette, alimen¬ 
tatore, ventola, il tutto in un rack. Regalo il 
mobile e i bollettini del club prezzo trattabilis¬ 
simo. 

Bianchi Marco - Via Montello, 23 - 40131 
Bologna - Tel. 051/557265. 

Sono interessato a tutto il software disponibi¬ 
le per "Oric" chi ne fosse in possesso prego 
scrivere o telefonare a. 

Buratti Giacomo - Via Metastasio, 4 - 20098 
S. Giuliano M.se (MI) - Tel. 9844350. 

Vendo videogiochi Philips con 6 cassette + 
musicale a L. 350.000 spedizione compresa. 
Vidili Vincenzo - C.so Regio Parco, 122 - 
10154 Torino - Tel. 011/267249. 


Vendo software per Olivetti M20, con manuali 
richiedete catalogo gratis. Prezzi molto con¬ 
venienti. 

Occhetta Elsa - Via Beldi, 19 - 28068 Romen- 
tino (NO). 

Scambio programmi Apple II. Compero inol¬ 
tre dischetto System master purché vera oc¬ 
casione. Vendo inoltre il manuale Sinclair 
"Microdrìve and interface 1 manual” a L. 
12 . 000 . 

Vialetto Dante - Via Gorizia, 5 - 21053 Castel- 
lanza (VA) - Tel. 0331/500713. 


Sono in contatto con alcuni TRS-80ntisti. Al¬ 
larghiamo il giro di amici o scambio notizie e 
programmi. Scrivete risponderò a tutti. 

Politi Massimo - Via Gabriele D'annunzio, 31 
- 65100 Pescara - Tel. 0857690786. 


Vendo HP41C + lettore di schede -I- modulo 
memoria quadruplo + modulo matematica + 
batterie ricaricabili + carica batterie + libri, 
schede e programmi vari, tutto come nuovo a 
L. 700.000 trattabili. 

Fasano Amedeo - Tel. 02/2130331. 


Vendo programmi di ingegneria civile, telai, 
pendìi, plinti, travi, pilastri, reti idriche, impian¬ 
ti solari ecc. ecc. a prezzi molto interessanti - 
parecchi manuali - richiedere elenco. 

De Gioanni Maurizio - C.so S. Santanosa, 67 - 
12100 Cuneo - Tel. 017/61839. 

Vendo computer NEZ80 espanso 60k con 
scheda videografica, monitor verde 12", un 
drive tandom. Il tutto racchiuso in due mobili 
rack. Dispongo delle schede LX383, LX384, 
LX385, LX386, LX388, LX389. 

Feroldi Maurizio - Via Serio, 30 - 26100 Cre¬ 
mona - Tel. 0372/411672. 

Vendo o cambio micro Z80 NE con le se¬ 
guenti schede complete LX382,383,384,385, 
388, 389, 390, 392 monitor FV12 mobile L. 
600.000 opp. cambio con ZX81 64K e digitai 
Ker o con stampante 80 eoe Centronics. 
Vonato Massimo - Via XX Settembre, 32 - 
28010 Gargallo (NO) - Tel. 0322/355042. 

Per Sharp MZ-80K vendo bellissimi giochi di 
animazione, lista di indirizzi di utilissimi poke, 
implementazioni del Basic, Pascal, System 
programs, word processing, data base e mol¬ 
to altro. 

Giovanelli Claudio - Via Ripamonti, 194 - 
20141 Milane* - Tel. 02/536926. 

Vendesi Sharp 1500 + stampante 4 colori 
CE150 + espansione 5K L. 750.000 completo 
manuali. Registratore digitale Philips D6600 
L. 80.000. Telefonare ore 20. 

Del Vecchio Francesco - Via Amoruso, 34 - 
70124 Bari - Tel. 510322. 


Software per Apple II - Visicalc L. 150.000; 
Visiterm L. 120.000; Visiplot L. 100.000; Visi- 
dex L. 100.000; Desktop-plan II L. 100.000; 
Visidrent + visiplot L. 120.000. 

Lenzi Paolo - Via Desenzano, 20146 Milano - 
Tel. 4040574. 

Vendo interfaccia Apple IEEE 488 a L. 
500.000. Vendo interfaccia parallela Centro¬ 
nics a L. 80.000. Vendo interfaccia seriale RS 
232 C a L. 140.000. 

Lenzi Paolo - Via Desenzano - 20146 Milano 

- Tel. 4040574. 

Vendo interfaccia doppio floppy disk per Ap¬ 
ple Il o Lemon a L. 100.000. Vendo scheda 
orologio/calendario al Quarzo "Mountain 
hardware" per Apple II a L. 500.000. 

Lenzi Paolo - Via Desenzano - 20146 Milano 

- Tel. 4040579._ 

Acquisto libri e riviste di carattere generale 
e/o dedicate al TRS-80. Cerco numeri anche 
sciolti di "80 microcomputing" e "Creative 
computing". 

Politi Massimo - Via Gabriele D'Annunzio, 31 

- 65100 Pescara (PE) - Tel. 085/690786. 
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Esposizioni Intemazionali dell’Automazione 
...1982 Parigi “MESUCORA”... 1983 Dusseldorf “INTERKAMA” 

1984 MILANO - BJ.A.S. 


Solo il BIAS nel 1984 in Europa presenta l’Automazione e la Microelettronica 



Fiera di Milano 

29 novembre - 4 dicembre 1984 


E.I.O.M. Ente Italiano Organizzazione Mostre 
Segreteria della Mostra 
Viale Premuda 2 
20129 Milano 

tei. (02) 796096/421/635 - telex 334022 CONSEL 


- Sistemi e Strumentazione per l’Automazione 
la regolazione ed il controllo dei processi 
Robotica, sensori e rilevatori 

- Apparecchiature e Strumentazione per 
laboratorio, collaudo e produzione 

- Componentistica, sottoassiemi periferiche ed unità 
di elaborazione 

- Micro, Personal Computer, Software e accessori 


in concomitanza con la 8 8 RICH e MAC ’84 

















Usare il sistema operativo 


11. LIBRO 

Il sistema operativo CP/M è stato progettato per 
rendere semplice l’uso di un microcomputer. 
Questo libro vi renderà semplice l’uso del CP/M. 
(Le versioni esaminate del CP/M sono il CP/M 


CP/M 



SOMMARIO 

Introduzione al CP/M e all’MP/M-Le 
caratteristiche del CP/M e dell’MP/M-Gestione 
dei file con PIP-I.’uso dell’editor-Dentro al CP/M 
e all’MP/M-Guida di riferimento ai comandi e ai 
programmi del CP/M e dell’MP/M-Consigli 
praiici-Il futuro-messaggi comuni di errore-tabella 
di controllo di ED-nomi dei dispositivi di PIP- 
riassunti dei comandi-parole chiave di PIP- 
parametri di PIP-tasti di controllo per la 
digitazione dei comandi-tipi di estensione-lista dei 
materiali-organizzazione della stanza del 
calcolatore-verifiche in caso di errore-regole di 
base per la localizzazione dei guasti. 
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1.4-il CP/M 2.2. e il nuovo sistema operativo 
multiutente MP/M) La maggior parte di utenti di 
microcomputer dovrà, infatti, un giorno o l'altro, 
fare ricorso al CP/M, disponibile su quasi tutti i 
computer basati sui microprocessori 8080 e Z80. 
come pure su certi sistemi utilizzanti il 6502. Il 
libro, senza presupporre alcuna conoscenza di un 
calcolatore, inizia con la descrizione, passo-passo 
delle procedure di inizializzazionc del sistema: 
accensione, inserimento dei dischetti, esecuzione 
delle più comuni operazioni su file, compresa la 
duplicazione dei dischetti. Prosegue con il PIP 
(programma di trasferimento dei file), i! DPT 
(programma di messa a punto) c ED (programma 
editor). Per entrare sempre più. fornendo 
numerosi consigli pratici, all’interno del C'P/M e 
delle sue operazioni, al fine di comprenderne 
appieno le risorse ed eventualmente dare gli 
strumenti per successive modifiche. 












